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BASIC 


qa) Las operacio- 
nes aritméticas 


AS operaciones arit- 
méticas son aquellas 
que relacionan datos 
numéricos y son las si- 
guientes: 


Suma 
Resta 


Multiplicación 
División 
Potenclación 


Podemos realizar estas operaciones 
con el ordenador, como si fuese una cal- 
culadora utilizando PRINT. Si escribimos 
una operación aritmética a continuación 
de PRINT, el ordenador nos dará el resul- 
tado de dicha operación. Veamos un 
ejemplo: 

10 PRINT 12+16 


Al ejecutar este programa en pantalla 
aparecerá un 28, resultado de la suma. 

Por otra parte, en una expresión aritmé- 
tica pueden aparecer una o varias ope- 
raciones; por tanto, es necesario cono- 
cer el orden que sigue el ordenador al 
efectuar dichas operaciones. Unas ope- 
raciones tienen prioridad sobre otras. La 
prioridad de las operaciones es la si- 
guiente: 


1. Potenciación (4 o 7). 
2. Multiplicación (*) y división (/). 
3. Suma (+) y resta (-). 


En el caso de igualdad de jerarquía (* 
y / O + y -), las operaciones se efectuan 
de izquierda a derecha. 


Añadamos otra línea a nuestro pro- 
grama: 


20 PRINT 24/3-5*213+6?2 


Ahora al ejecutar el programa apare- 
cerá un 28 y debajo un 4, resultado de la 
operación de la línea 20. 

El orden seguido por la máquina para 
efectuar la operación es el siguiente: 


24/3-5"213+612 
de De A lo e He 


En cualquier caso, siempre es posible 
alterar la prioridad establecida median- 
te el uso de los paréntesis necesarios, de 
modo que si una operación está escrita 
entre paréntesis se realizará antes que 
cualquier otra. Por supuesto, si en una 
operación aparecen varios paréntesis, 
se realizarán de izquierda a derecha y si 
hay unos paréntesis dentro de otros, se 
realizarán de dentro a fuera. 

Veamos un ejemplo añadiendo otra lí- 
nea más a nuestro programa: 


30 PRINT ((5+3)/2) 2-(3+1)"3+(4-1) 2) 
Al ejecutar ahora el programa el resul- 


tado de esta línea será un 13. El orden se- 
guido en este caso es el siguiente: 


((5+3)/2)12-(3+1)"3+(4-1)12) 
ML 2 SAB IA TAO AE 


O Operaciones con cadenas 


La única operación que podemos rea- 
lizar con cadenas de caracteres es la 
concatenación, es decir, podemos for- 
mar una cadena única mediante la unión 


de dos o más cadenas más sencillas. El 
signo empleado para la concatenación 
de cadenas es el de la suma (+), aunque 
su misión es muy diferente. 


Veamos un nuevo programa de ejem- 
plo: 


10 PRINT “SACA"+"CORCHOS" 
20 PRINT “BUENAS*“+" “+"“NOCHES" 


Después de ejecutar este programa 
aparecerá en pantalla la palabra SACA- 
CORCHOS y debajo BUENAS NOCHES. El es- 
pacio en blanco constituye una cadena 
más, por lo que va entre comillas. 


O Novedades en la impresión 


Vamos a profundizar más en la instruc- 
ción PRINT para poder sacarle un mayor 
partido. Para conseguir impresiones en 
pantalla más adecuadas y atractivas re- 
sulta bastante útil conocer las dimensio- 
nes de la pantalla del ordenador con el 
que estamos trabajando, es decir, el nú- 
mero de líneas y el número de columnas 
(número de caracteres por línea). En la fi- 
gura 1 podemos ver las dimensiones de 
los principales ordenadores. 


[A Dimensiones de pantallas. 


El empleo de ciertos separadores (,) o 
(;) nos permite imprimir varios datos usan- 
do una única instrucción PRINT. La coma 
y el punto y coma tienen diferentes efec- 
tos en el aspecto final de la pantalla. 

El uso del punto y coma (;) supone que 
todos los datos incluidos en una misma 
sentencia PRINT se escribirán con la míni- 
ma separación posible entre ellos. Así, al 
ejecutar el programa siguiente: 


10 PRINT “OPERACION “;“ARITMETICA"* 
20 PRINT “184+4=";18+4 


en pantalla aparecerá la frase OPERA- 
CION ARITMETICA y debajo 18 + 4 = 22. 


Este separador suele dejar un espacio 
para el signo en los datos numéricos, te- 
niendo en cuenta que si los números son 
positivos el signo no se imprimirá, apare- 
ciendo en su lugar un espacio en blanco. 

Por otra parte, la pantalla del ordena- 
dor se suele dividir en zonas verticales, 
aunque el número de zonas es variable 
de unas máquinas a otras. En la tabla de 
la figura 3 podemos ver el número de zo- 
nas de los distintos ordenadores en estu- 
dio, así como el número de columna de 
inicio de cada zona. 


N.* de columna 
No dezonas | No dezonas | de zonas de inicio de zonas 


4, 14, 27 
1 44, 27, 40, 53 
COMMODOR ——— s. 10.20.20 


, 20 
o, 16 


[A Zonas de pantalla. 


Visto esto, podemos decir que el uso 
de la coma (,) para separar distintos da- 
tos dentro de una misma instrucción PRINT 
hace que cada dato aparezca impreso 
en una zona distinta de la pantalla. Evi- 
dentemente, si hay más datos que zonas, 
éstos continúan imprimiéndose en la fila 
siguiente, pero siempre respetando las 
zonas. 

Veamos un ejemplo. Supongamos que 
estamos manejando un ordenador con 
cuatro zonas de pantalla. Vamos a eje- 
cutar el programa siguiente: 


10 PRINT “NOMBRE", “APELLIDO*, “TFNO.", 
20 PRINT “JAVIER”, “GARCIA”, 9608034,24 


El resultado en pantalla será algo simi- 
lar al representado en la figura 4, claro 
que antes de ejecutar el programa ten- 
dremos que teclear el comando CLS 
para borrar el listado y dejar la pantalla 
limpia. 


APELLIDO TFNO. 
GARCIA 960 80 34 
lA 
Ejemplo del efecto de la coma. 


"EDAD" 


Lal BASIC 


Funciones y sentencias 
= de impresión 


Vamos a analizar a continuación diver- 
sas funciones y sentencias que facilitan y 
hacen más atractiva la impresión de da- 
tos en pantalla. Al final de este análisis 
podemos ver una tabla-resumen de las 
disponibilidades de distintos ordenado- 
res respecto a ellas: 


' Función SPC 


Esta función permite imprimir en panta- 
lla tantos espacios como deseemos. Su 
formato es el siguiente: 

PRINT SPC (N); lista de datos 
donde N es el número de espacios que 
deseamos imprimir y lista de datos son to- 
dos los datos de tipo numérico o alfanu- 
mérico (separados por comas o puntos y 
comas) que deseemos imprimir a conti- 
nuación. 

El programa siguiente: 

10 PRINT SPC (20); “EJEMPLO DE SPC* 
imprime en pantalla 20 espacios y a con- 
tinuación la cadena EJEMPLO DE SPC. 

En algunos ordenadores la función SPC 
se puede denominar también SPACES. 


' Función TAB 


Esta función nos permite realizar impre- 
siones en pantalla a partir de la columna 
que deseemos. El formato general es el 
siguiente: 

PRINT TAB(N); lista de datos 
donde Nes el número de columna a par- 
tir del cual deseamos imprimir y la lista 
de datos tiene el mismo significado que 
en SPC. 

El programa: 

10 PRINT TAB(14); “EJEMPLO DE TAB* 


imprime la cadena EJEMPLO DE TAB a par- 
tir de la columna 14 de la pantalla. Si es- 
tamos utilizando un ordenador de 40 co- 
lumnas la cadena aparecerá centrada 
en la parte superior de la pantalla. 


' Función AT 


La función AT permite la fila y la colum- 
na de la pantalla donde queremos reali- 
zar la impresión. 


El formato es el siguiente: 
PRINT AT F,C;lista de datos 


donde Fes la fila y C la columna a partir 
de las cuales deseamos imprimir la /ista 
de datos. 


Veamos un ejemplo: 
10 PRINT AT 12,10; “EJEMPLO DE AT" 


Este programa imprime la cadena 
EJEMPLO DE AT en el centro de la panta- 
lla del SPECTRUM. 


(um Sentencia LOCATE 


LOCATE es una instrucción indepen- 
diente de PRINT, aunque ligada a él. Su 
objetivo es el mismo que AT, es decir, se- 
leccionar la fila y la columna donde se 
va a realizar la impresión. 


Su formato general es el siguiente: 
LOCATE C,F 


donde C es la columna y F es la fila. 

Es de observar que los parámetros se 
escriben en orden inverso a AT, sin em- 
bargo, en el IBM el orden es igual que en 
AT, es decir, primero fila y luego co- 
lumna. 


Veamos un nuevo programa: 


10 LOCATE 12,13 
20 PRINT “EJEMPLO DE LOCATE" 


La ejecución nos dará como resultado 
la impresión de la cadena EJEMPLO DE 
LOCATE en el centro de una pantalla de 
25 filas y 40 columnas como, por ejem- 
plo, la del AMSTRAD. 


lA Funciones 
de impresión. 
Resumen. > 


A mayoría de las ins- 
trucciones en lengua- 
je máquina necesitan 
utilizar datos. Estos 
pueden representar 
números de 8 bits 
(Bytes) o de 16 
(Words) y pueden en- 
contrarse en registros de la propia CPU o 
en memoria. 

De la forma en cómo le indicamos al 
microprocesador dónde encontrar estos 
datos tratan los modos de direcciona- 
miento. Intentaremos explicar al lector 
en qué consiste cada uno de los disponi- 
bles en el Z-80. Estos son: 


— Implícito. 
— Inmediato. 


— De registros. 
— Directo. 

— Indirecto. 
— Relativo. 

— indexado. 


Ol 


Esta forma de direccionamiento es la 
utilizada en aquellas instrucciones en las 
que la misma instrucción indica dónde se 
halla el dato a utilizar de forma implícita. 
En la figura 1 puede verse el flujo de da- 
tos típico de esta forma de direccionar. 


Direccionamiento 
implícito 


MAQUINA 2-80 


MODOS DE DIRECCIONAMIENTO 


Memoria 


Operación 
interna 


Contador prog. 


46 bits 
8 bits 


[A Diagrama direccionamiento implícito. 


Ejemplos de instrucciones con este tipo 
de direccionamiento son: 


— SFC (Set Carry Flag): Pone a 1 la 
bandera (flag), C, de acarreo. Afecta al 
registro F de forma implícita. 

— CPL: Complementa el acumulador 
(cambia ceros por unos, y viceversa). 
(A — A). Evidentemente, afecta de forma 
implícita al acumulador. 


O Direccionamiento inmediato 


En esta forma de direccionamiento, el 
dato a utilizar es un numero que sigue a 


e MAQUINA 2-80 


la instrucción. En la figura 2 puede verse 
el flujo de datos. Con este sistema no es 
necesaria ninguna dirección, ya que el 
dato va incluido de forma numérica en la 
misma instrucción. Por ejemplo: 


LD A,$2F 


— El signo $ indica que el número va 
en notación hexadecimal. 


Memoria 


Contador prog. 


46 blts 


8 bits 


lA Diagrama direccionamiento Inmediato. 


— LD: (LoaD) quiere decir cargar. 
— A; acumulador. 


Por tanto, esta instrucción carga en el 
acumulador el dato que le sigue inme- 
diatamente después, es decir, $2F. 


Direccionamiento 
'D de registros 


Con esta forma, en principio, el propio 
código de operación de la instrucción in- 
dica cuál es el registro en el que se en- 
cuentra el dato a utilizar y su destino, 
como puede verse en la figura 3. 


Por ejemplo: 


— LD B,C carga en el registro B el con- 
tenido del C. 


Memoria 


8 ó 16 bits 


46 bits 


8 blts 


| 
Diagrama direccionamiento de registros. 


— EXDE,AL intercambia los contenidos 
de los pares de 16 bits DE y AL. 


— ADD A,B suma los contenidos de los 
registros A y B. 


Este tipo de direccionamiento suele 
encontrarse combinado con otros tipos 
de direccionamiento, como el inmedia- 
to. 


Por ejemplo: 1D A,516 


Carga en A el número $16 que es inme- 
diato. 


Esta forma de combinar dos modos de 
direccionamiento es bastante habitual. 


Direccionamiento 
directo 


Este modo de direccionamiento es el 
mas utilizado para tomar o dejar datos 
de la memoria, ya que los anteriores no 
tomaban la dirección de la memoria 
principal. 

Este tipo ocupa 3 bytes, en el que el pri- 
mer byte indica la operación a realizar y 
los dos siguientes juntos forman una di- 
rección de 16 bits de la memoria prin- 
cipal. 


Memoria 


46 bits 


Presenta la ventaja de ser de un uso 
muy general, pero utiliza mucho más 
tiempo que los anteriores, ya que tiene 
que acceder a la memoria principal 
para determinar la dirección efectiva. 
Además, ocupa más memoria. 


Un ejemplo de uso de esta instrucción 
sería: 


LD A($1348) 


Esta instrucción cargaría el contenido 
de la posición $1348 en el acumulador. 


qu Direccionamiento 
indirecto 


En este tipo no se indica la dirección 
en la que está el dato, sino la dirección 
del registro donde está contenida la di- 
rección de memoria en la que está el 
dato. Esto puede parecer un poco com- 
plicado a primera vista, pero no lo es tan- 
to observando la siguiente figura. 


Las ventajas de este tipo respecto del 
directo es que ocupa menos memoria y 
tarda menos tiempo, pero tiene el defec- 
to de que la dirección debemos cargar- 


Memorla 


8 ó 16 bits 


la anteriormente en el registro a utilizar 
indirectamente. 


Un ejemplo sería: 
LD A,(B,C) 


que cargaría el acumulador con la direc- 
ción indicada por el contenido de los re- 
gistros B y C. 


' Direccionamiento 
relativo 


En este caso la dirección efectiva se 
obtiene al sumar un desplazamiento (de 
-127 a 128) a una dirección predetermi- 
nada. 

Dicho desplazamiento viene indicado 
por un byte que sigue a la instrucción. 

La dirección predeterminada puede 
ser el contenido del contador de progra- 
ma (dirección de la instrucción que está 
ejecutando). 

Otra posibilidad es que la predirección 
esté en un registro. Para esta función es- 
tán diseñados los registros de indirección 
IX e IY. 


Un ejemplo sería: 
LD A(IX + $9) 


so MAQUINA 2-80 


que cargaría el acumulador con el con- 
tenido de la posición que esté 9 bytes 
por delante de la indicada en el regis- 
tro IX. 


Memoria 


PIGGPÓA 


8 bits 


Contador prog. 


46 blts 


lA, Diagrama direccionamiento relativo. 


Direccionamiento 
indexado 


Este es una variante del anterior, con la 
particularidad que tras la ejecución el re- 
gistro Indice utilizado se ve incrementa- 
do en uno, con lo que está preparado 
para repetir el mismo tipo de direcciona- 
miento y seleccionar la siguiente posi- 
ción de memoria. 


Memoria 


PIPA 


46 bits 


[A Diagrama direccionamiento indexado. 


Este tipo y el anterior son especialmen- 
te indicados para trabajar con tablas de 
datos y matrices. 

Un ejemplo sería: 


LDI A,(BC) 


que cargaría la dirección indicada por el 
contenido de BC en el acumulador e in- 
crementaría el contenido de BC en uno. 

Con esto ya conocemos todos los tipos 
de direccionamiento existentes en el 
Z-80. 

Por ello, el siguiente paso será ver de- 
talladamente todas las instrucciones que 
utilizarán estos direccionamientos, vien- 
do su utilidad práctica. 


PROGRAMAS 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTIÓN 
PROGRAMAS DE JUEGOS 


ID Programa: Organo electrónico Palta, IBM 


STE primer programa 
de este tercer tomo 
es un órgano electró- 


nico que nos permiti- DPCIONES 

rá componer, inter- y 

pretar, modificar y es- 2 — METRONOMO. 
cuchar todo tipo de + — Dia E? 


música y ritmos a una er a q 2 MDI 
sola voz. Aunque este programa, funcio- 
ne sólo en el IBM PC, XT y AT, así como en 
todos los compatibles, aparecerán en 
otros tomos las versiones para SPECTRUM, lA 
AMSTRAD y MSX. 


Menú general del programa órgano 
para IBM. 


MMM MM MI III IR 
MAQUINA DE SONIDO 
VARIABLES: 


NUMERAL DE PARTE (OPT) 
TEMPO (ORG, MET Y INPUT) 
NOTA (ORG Y INPUT) 
LABEL DE KEY (ORG) 
FREQUNCIA (MET) 

DURATION DE NOTA (MET) 
DURATION DE REST (MET) 
FLAG DE ALTO (MET) 

FLAG DE NOTA MALA (INPUT) +* 
COORDENADAS DE CIRC. (MET)* 
LO MISMO * 
ETIQUETA DE NOTA (0RG) * 
ARRAY DE NOTAS (INPUT) * 
NUMERAL DE FILA (INPUT) + 
NUMERAL DE COLUMN (INPUT) +* 
FLAG DE INPUT (INPUT) * 
NUMERAL DE ELEMENTE (INP) + 
STRING DE MUSICA (INPUT) * 
LO MISMO * 
NOTA BUENA (INPUT) * 


EXETER AE ERE RE e EM OR 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 
* 


“2 PROGRAMAS 


126 
27 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 


147 
148 


149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
1650 
161 
162 
163 
164 
165 
166 
167 
158 
1659 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 


REM * R$ — RESPUESTA (SI O NO) * 
REM * C$ - RESPUESTA * 
REM * K,L,I - INDICES * 
REM * * 
REM * LAS PALABRAS ENTRE COMILLAS SON* 
REM * LAS DIFERENTES PARTES DEL PRO- «* 
REM * GRAMA. * 
FEA 6 06 66 MM MI 
REM 

KEY OFF 

REM 

REM se 


REM * CABECERA  * 
REM IR RRRA 


REM 

cLs 

WIDTH 40 
ii 


FOR I wi1iTO 19 
PRINT — "*"3 TAB(40)3 "*" 
NEXT 1 
A iii 
LOCATE 8,131 PRINT "ORGANO ELECTRICO" 
LOCATE 9,123 PRINT "---=--=-=--=======- pa 
LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 
FOR.I = 1 TO 3000 
NEXT 1 
PEI 0 6 0 96 6 0 6 6 MI 
REM+* ELEGIR OPCION * 
PRE 6 6 06 06 06 06 6 6 6 DEI 
CLs 
SCREEN 0,0,0 
LOCATE 3,16: PRINT "OPCIONES” 
LOCATE 4,153 PRINT *"--—--------= e 


LOCATE 6,13: PRINT "1 - ORGANO" 

LOCATE 7,13: PRINT "2 - METRONOMO"” 
LOCATE 8,13: PRINT "3 - ENTRADA DE TONO" 
LOCATE 9,13: PRINT "4 - SALIDA" 


LOCATE 13,3: PRINT "(QUE OPCION QUIERES? (1-4)"; 
INPUT NP 

ON NP GOSUB 170,286,340,168 

GOTO 155 

KEY ON 

END 

FRE 06 06 6 6 6 dl JM 6 JO MJ ME IE HH MH 

REM* ORGANO * 

PREM DD MMM III IE 

CcLs 

SCREEN 0,0,0 

LOCATE 4,3: PRINT "PULSA 'S”* PARA TERMINAR" 
LOCATE 5,3: PRINT "PULSA 'N” PARA NUEVO TEMPO" 
PRINT:PRINT "INPUT TEMPO (32-255) - "j 

INPUT TP 

GOSUE 216 

PLAY "T=" + VARPTR$(TP) 

PLAY "ML MB" 

N$ = INPUTS$ (1) 


IF N$ = "0" THEN PLAY"D1C8"2*RESTORE 265: GOSUB 205 
IF N$ = "2" THEN PLAY"O1C%48":RESTORE 266: GOSUB 205 

= "W" THEN PLAY"O1D8":»RESTORE 267: GOSUB 205 
IF N$ = "3" THEN PLAY"O1D%48":RESTORE 268: GOSUB 205 
"E" THEN PLAY"O1E8":RESTORE 269: GOSUB 205 
"R" THEN PLAY"O01F8":RESTORE 270: GOSUB 205 
IF N$ = "5" THEN PLAY"O1F48":RESTORE 271: GOSUB 205 
IF N$ = "T" THEN PLAY"O1G8":RESTORE 272: GOSUB 205 
IF N$ = "6" THEN PLAY"O1G%8":RESTORE 273: GOSUB 205 
IF N$ = "Y" THEN PLAY"O1A8":RESTORE 274: GOSUB 205 


IF N$ 


IF NS 
IF N$ 


IF N$ 
IF N$ 
IF N$ 
IF N$ 
IF Ns$ 
IF N$ 
IF Ns$ 
IF N$ 
IF Ns$ 
GOTO 1 


.>3. 
»”y" 
»]» 
ng» 
»”.g" 
”og" 
“pu 
"y" 
= "g" 


82 


THEN 
THEN 


THEN» 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


SCREEN 0,0,0 


RETURN 
REM 


REM *xe BLINK KEY 


REM 


READ X,Y,LB$ 


LOCATE 


X,Y 


PRINT CHR$ (219) 
FOR I = 1 TO 100 


NEXT 1 
LOCATE 
PRINT 
RETURN 
REM 
REM 
REM 
CcLs 
SCREEN 
REM 
REM 
REM 


X,Y 
LBS 


RÁMHHNA 


a 


KARA 


LINE (5,100) 


LINE ( 
LINE € 


5,5) 
5,5) 


LINE (305,5) 


REM 
REM 
REM 
LET Xx 
FOR 1 


LINE ( 
Y =X 
NEXT 1 
REM 


- REM 


REM 


LET Xi = 28 


HIRE 


= 35 


PLAY"O1A*$8":RESTORE 275: GOSUB 205 
PLAY"O01B8":RESTORE 275: GOSUB 205 

PLAY"O02C8":*RESTORE 277: GOSUB 205 

PLAY"02C48":RESTORE 278: GOSUB 205 
PLAY"O02D8":*RESTORE 279: GOSUB 205 

PLAY"O02D48":RESTORE 280: GOSUB 205 
PLAY"O02E8":RESTORE 281: GOSUB 205 

GOTO 173 

GOTO 203 


** 


DIBUJA COSAS xx 


BORDE xxx 


- (305,100) 
(305,5) 
(5,100) 
- (305,100) 


TECLAS BLANCAS 1% 


= 1709 
IF (1=3) OR (I=7) THEN Y=5 ELSE Y=70 
(X,100) 


X,Y) 
+ 30 


EX TECLAS NEGRAS **e% 


FOR 1 = 1 TO 9 
IF (1=3) OR (1=7) GOTO 247 


LINE (X1,5) -— (X1,70) 
xX2 = X1 + 14 

LINE (X2,5) - (X2,70) 
LINE (X1,70) - (X2,70) 


xi = x1 + 30 


NEXT 1 
REM 
REM 
REM 


**x* ETIQUETAS DE LAS TECLAS ex 


RESTORE 
FOR Il = 1 10 17 
READ X,Y,LB$ 

LOCATE X,Y: PRINT LBS 


NEXT 1 
REM 


REM *xx** ETIQUETAS CON NOMBRE xxx 
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259 REM 

260 FOR 1 = 1 TO 10 

261 READ Y,NN$ 

262 LOCATE 14,Y: PRINT NN$ 
263 NEXT 1 

264 RETURN 

265 DATA 
266 DATA 
267 DATA 
268 DATA 8,9,"3" 

269 DATA 11,11,"E” 

270 DATA 11,14,"R" 

271 DATA 8,16,"5" 

272 DATA 11,18,"T" 

273 DATA 8,20,"6" 

274 DATA 11,22,"Y" 

275 DATA 8,24,"7" 

276 DATA 11,25,"U" 

277 DATA 11,29,"I" 

278 DATA 8,31,"9" 

279 DATA 11,33,"0"” 

280 DATA 8,35,"0" 

281 DATA 11,37,"P" 

282 DATA 3,"C",7,"D",11,"E",14,"F",18 
283 DATA "G6",22,"A",25,"B",29,"0",33 
284 DATA "D",37,"E"” 

285 REM 

286 REI de DM MM MM HI MH MI 
287 REM* METRONOMO * 
288 REI ved 6 MM MD MI DEI ME HH RE 
289 REM 

290 ON KEY(1) GOSUB 336 

291 ON KEY(11) GOSUB 321 

292 ON KEY (14) GOSUB 325 

293 ON KEY(13) GOSUB 329 

294 ON KEY (12) GOSUB 333 


295 CLS 

296 PRINT "PULSA “Fi” PARA TERMINAR" 

297 PRINT:PRINT "DAME LA FRECUENCIA (40-8000) -— "32 INPUT HZ 
298 IF (HZ > 8000) OR (HZ < 40) GOTO 297 

299 PRINT:PRINT "DAME LA DURACION (1-5) — "32 INPUT DRi 

300 IF (DRi < 1) OR (DRi > 5) GOTO 299 

301 PRINT "DAME LA PAUSA (1-25) -— "32 INPUT DR2 


302 IF (DR2 < 1) OR (DR2 > 25) GOTO 301 
303 LETN=0 

304 SCREEN 1,1 

305 LET FL$ = "y" 

306 KEY(1) ON 

307 KEY(11) STOP: KEY(14) STOP 

308 KEY(12) STOP: KEY(13) STOP 

309 CLS 

310 SQUND HZ, DRi 

311 X = INT(159 + 90*(COS(N))) 

312 Y = INT(99 + 9OX*(SIN(N))) 

313 CIRCLE ( X, Y)>,5,2 
3149N=N+.1 

315 KEY(11) ON: KEY(14) ON 

316 SOUND O, DR2 

317 KEY(12) ON:z KEY(13) ON 

318 IF FL$ = "Y" GOTO 307 

319 RETURN 

320 REM x** AUMENTA LA FRECUENCIA ** 
321 IF HZ > 8000 GOTO 323 

322 HZ = HZ + 25 

323 RETURN 

324 REM ** DISMINUYE LA FRECUENCIA *x 


325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 

342 
343 
344 
345 
3446 
347 
348 
349 
350 
351 

352 
353 
354 
355 
356 
357 
358 
359 
360 
361 

362 
363 
364 
365 
366 
367 
368 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 
383 
384 
385 
386 
387 
388 
389 
390 


IF hz 


<= 65 GOTO 327 


HZ = HZ - 25 

RETURN 

REM x** DISMINUYE LA DURACION DE LA PAUSA ** 
IF DR2 <= 1 GOTO 331 


DR2 = 


DR2 - .5 


RETURN 
REM ** AUMENTA LA DURACION DE LA PAUSA ** 


DR2 = 


DR2 + .5 


RETURN 


REM 


LET FL$ = "N" 


RETURN 


REM 
REM 


PEI 0 0 6d 6d 6 M6 E MI DE E IM MM 


REM* 


EDITOR DE MUSICA * 


PRE 0d 6 6 16 dE MM 0 MN MNR 


REM 
cLs 
PRINT 
INPUT 
IF R$ 
IF R$ 


"(QUIERES INSTRUCCIONES? (S/N)"z 
R$ 

= "S" GOTO 350 

= "N" GOTO 396 


GOTO 345 


REM 
REM 
CcLs 


** INSTRUCCIONES «*x* 


LOCATE 3,13: PRINT "INSTRUCCIONES" 
LOCATE 4,122 PRINT "-===========-=--- " 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


" PARA ESCRIBIR MUSICA NECESITAS DERLE” 
"LA PROGRAMMA TRES COSAS: "2: PRINT 

> 1 - QUE OCTAVA" 

iy 2* = QUE-NOTA” 

sá 3 - QUE LONGITUD" 


"LAS OCTAVAS SE ESCRIBEN CON 'On'“" 
" - m ES LA NUMERO DE LA OCTAVA (0-6)." 


"LAS NOTAS SON “ABCDEFG”* CON "$" Y "-"." 
"LAS LONGITUDES SON *1,2,3,4,8 ETC." 
"PAUSAS SON “P* SEGUIDO DE “1,2,4,8'" 
"(ENTER PARA CONTINUAR) " 


Cs 


"POR EXEMPLO, LA SIGUENTE LINEA TOCA UNA " 

"*A* EN LA OCTAVA 1, UNA 'B” EN LA OCTAVA 2," 

"Y UNA “C* EN LA OCTAVA 3. FIJATE QUE LA ULTIMA" 
"NOTA ES MAS LARGA. " 


"0144 02B4 O3C1" 


"(RETURN ESCUCHAR) " 
R$ 


PLAY "MF T100 O1A4 02B4 O3C1” 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"UNA “L” SEGUIDA DE UN NUMERO HACE QUE TODAS" 
"LAS NOTAS TENGAN LA MISMA LONGITUD":PRINT 
"FIJATE EN EL EJEMPLO ANTERIOR” 
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391 PRINT 

392 PRINT "L4 O1A 02B 0302" 

393 PRINT 

394 PRINT "(ENTER PARA CONTINUAR) " 
395 INPUT R$ 

396 CLS 

397 REM 

398 REM ** ENTRADA DEL TONO *x* 

399 REM 

400 DIM AN$(360) 

401 FOR I = 1 TO 360 

402 LET ANS$(I) = " " 

403 NEXT 1 

404 CLS 

405 PRINT "INTRODUCE LAS NOTAS (X PARA FIN): " 
406 LET 1 = 1 

407 LET N$ = " " 

408 WHILE (N$ <> "X") AND (1 <= 360) 
409 N$ = INPUT$(1) 

410 GOSUB 511 


411 IF FL$ = "N" THEN GOTO 408 
412 PRINT N$; 


413 AN$(1) = N$ 

414 I = 1 + 1 

415 WEND 

416 PRINT 

417 PRINT 

418 IF 1 > 360 THEN LOCATE 10,5: PRINT "NUMERO MAXIMO DE NOTAS AGOTADO" 
¿PRINT "P ULSA RETURN."33 INPUT R$ 

419 REM 

420 REM x** EDITAR CANCION ** 

421 REM 

422 CLS 

423 LOCATE 1,1: PRINT "(QUIERES CAMBIAR LA MUSICA? (S/N) "; 
424 INPUT R$ 

425 IF R$ = "N" GOTO 469 

426 IF R$ <> "S" GOTO 423 

427 CLS 

428 PRINT "USA <- Y -> PARA MOVER EL CURSOR": PRINT "USA 'F1” PARA ENTRAR 
UNA NOTA NUEVA" :PRINT "USA “F1* Y “X” A LA VEZ PARA SALIR" 
429 GOSUB 431 

430 GOTO 449 

431 REM 

432 REM ** IMPRESION DE LA CADENA MUSICAL +x* 
433 REM 

434 LET RN = 3 

435 LET CN = 1 

436 LET N = 1 

437 FOR K = 1 TO 9 

438 RN = RN + 2 

439 LOCATE RN, CN 

440 FOR L = 1 TO 40 

441 PRINT AN$ (N); 

442 N=N+ 1 

443 NEXT L 

444 NEXT K 

445 LET RN = 63 LET CN = 1 

446 LOCATE RN, CNz PRINT "-" 

447 AL$ = "N” 

448 RETURN 

449 REM 

450 REM ** RUTINAS DE MOVIMIENTO DEL CURSOR ** 
451 REM 

452 ON KEY(13) GOSUB 523 

453 ON KEY(1) GOSUB 539 

454 ON KEY(12) GOSUB 531 


455 KEY(12) ON: KEY(13) ONz KEY(1) ON 
456 IF AL$ = "N" GOTO 452 

457 KEY(12) OFF: KEY(13) OFF: KEY(1) OFF 
458 N$ = INPUT$(1) 

459 GOSUB 511 

460 IF N$ = "X" GOTO 419 

461 N = (RN — 6)x*20 + CN 

462 LET AN$(N) = N$ 

463 LOCATE RN-1, CN: .PRINT N$ 

464 LOCATE RN, CNz PRINT " ” 

465 CN = CN + 4 

466 LOCATE RN, CN PRINT "-" 

467 LET AL$ = "N" 

468 GOTO 452 

469 REM 

470 REM x*x* PLAY STRING *x 

471 REM 

472 REM 

473 REM xx ENSAMBLAJE *x* 

474 REM 

475 S15$ = "" 

476 FOR J = 1 TO 180 

477 S1$ = S1$ + ANS (J) 

478 NEXT J 

479 82% = "" 

480 FOR J = 181 TO 360 

481 S2$ = S2$ + ANS (J) 

482 NEXT J 

483 CLS 

484 PRINT "(QUE TEMPO QUIERES? (32-255): "3 
485 INPUT TP 

486 1F (TP < 32) OR (TP > 255) GOTO 483 
487 GOSUB 432 

488 PLAY "MF T=" + VARPTR$ (TP) 

489 ON ERROR GOTO 541 

490 PLAY "Xx" + VARPTR$(S51$) 

491 ON ERROR GOTO 541 

492 PLAY "X" + VARPTR$(52$) 

493 CLS 

494 LOCATE 7,1: PRINT "(QUIERES CAMBIAR ESTA CANCION? (S/N) "3 
495 INPUT R$ 

496 IF R$ = "N" GOTO 499 

497 IF R$ <> "S" GOTO 494 

498 GOTO 427 

499 LOCATE 8,1: PRINT "(QUIERES TOCAR ESTA CANCION? (S/N)"; 
500 INPUT R$ 

501 IF R$ = "N" GOTO 504 

502 IF R$ <> "S" GOTO 499 

503 GOTO 469 

504 LOCATE 9,1: PRINT "(QUIERES COMPONER OTRA CANCION: (S/N): "3 
505 INPUT R$ 

506 IF R$ = "N" GOTO 509 

507 IF R$ <> "S" GOTO 504 

508 GOTO 401 

509 RETURN 

510 END 

511 REM 

512 REM 

513 REM 

514 RESTORE 522 

515 LET FLS = "N" 

516 FOR K = 1 TO 18 

517 READ BC$ 

518 IF EC$ = N$ THEN FL$ = "Ss" 

519 NEXT k 

520 IF (FL$ = "N") AND (N$ <> "X") THEN SOUND 100, 3 
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RETURN 

DS O A O O OO OT O O 
REM 

REM xx MOVIMIENTO DEL CURSOR A LA DERECHA »** 

REM 

IF (CN = 40) AND (RN = 22) GOTO 530 

LOCATE RN, CN: PRINT " " 

IF CN < 40 THEN CN = CN + 1 ELSE LET CN = 423 RN= RN +2 
LOCATE RN, CNz PRINT "-" 

RETURN 

REM 

REM xx MOVIMIENTO DEL CURSOR A LA IZQUIERDA «** 

REM 

LOCATE RN, CNz PRINT " " 

IF (CN ='1) AND (RN > 6) THEN LET CN = 40: RN = RN - 2 

IF CN > 1 THEN CN = CN - 4 

LOCATE RN, CN: PRINT "-" 

RETURN 

ALS = "y" 


RETURN 


REM 

REM x** ERROREN EL STRING *x 

CLs 

REM 

PRINT "HAY ERROR EN LA MUSICA." 

PRINT "PUEDE SER FOR :":PRINT 

PRINT " 1 -— UNA “0” SIN NUMERO DESPUES" 
PRINT ": 2 - UNA “L” SIN NUMERO DESPUES" 
PRINT " 3 -— UNA 'P* SIN NUMERO DESPUES" 
PRINT:PRINT "COMPRUEBA QUE TODAS LAS O's, L's Y P'S" 
PRINT "VAN SEGUIDAS DE UN NUMERO. ” 
RESUME 494 


Este programa se divide entre partes 


distintas: FAR o o TAS DERLE 
1. El órgano propiamente dicho. En O a 
ella aparece el dibujo de un teclado mu- )-= $ Deco 
sical con las teclas que tenemos que pul- Las oOcravas SE ESCRIBEN CON com 
sar para que suene la música. Antes de AA E SA 
aparecer el dibujo del teclado, el pro- LAS LONGITUDES SON 1,2,3,4,8 ETC. 
grama nos preguntará el tempo y nos FALSAS SOM “F” SEGUIDO DE 1,2,94,89" 
dará un par de mensajes de información AE AA 
por pantalla. 
2. El metrónomo es un aparato que GRE EXE URLO, LA SIGUENTE LINEA TOCA. 


1 
si EN LA OCTAVA ==. FIJATE QUE 
LA ULTIMA 
NOTA ES MAS LARGA. 


[A Instrucciones de uso del programa 
«Organo». 


utilizan los músicos para no perder el rit- 

mo. Esta parte del programa simula uno 

Cc OD E FG Ñ = de ellos. Antes de empezar dicha simula- 

ción, el programa nos pedirá la frecuen- 

lA Así aparece el teclado del órgano en la cia del sonido, la duración y la pausa en- 
pantalla del ordenador. tre sonido y sonido. 


3. Un compositor musical. Con él po- 
demos componer música para que la to- 
que el ordenador o bien introducir algu- 
na melodía que conozcamos. Incluso nos 
permite modificar la melodía si nos he- 
mos equivocado. 


'O Programa: Dragones 
y mazmorras 


Este programa es un juego que nos in- 
troduce dentro de las mazmorras de un 
lóbrego castillo medieval. Dentro del 
castillo tenemos que encontrar 4 llaves 
que nos permitirán encontrar al amo del 
calabozo. 


10 BORDER 7: PAPER 7: INK 7: B 
RIGHT O: OVER O: INVERSE O: CLEA 
R 64567 

20 PRINT — INK 13 PAPER 73 BRIG 
HT 13 FLASH 1;AT 10,6; "DRAGONES 
Y MAZMORRAS" 
30 LOAD ""CODE 
40 LOAD "" 


3 GO TO 9600 
5 60 TO 7000 
10 REM Paredes de pantallas 
20 LET 1=USR 65153: FOR f=1 TO 
73 PRINT  INK 33 BRIGHT 1;AT f, 
03"P"3 NEXT £:3 FOR £f=8 TO 12: PR 
INT INK 13 BRIGHT O¿AT 4,03" ": 
NEXT £f» FOR f=13 TO 19: PRINT 
INK 33 BRIGHT 1;AT +$,0;"E": NEXT 
$3 LET 1=USR 64958: PRINT  INK 
3; BRIGHT 1¿AT 0,03"C"; AT 20,03” 
E" 
23 RETURN 
25 LET 1=USR 65153: FOR f=1 TO 
73 PRINT  INK 33 BRIGHT 1;AT £, 
31;"0"2 NEXT £: FOR $=8 TO 123 P 
RINT— INK 13 BRIGHT O¡AT f,31;" 
"3 NEXT €: FOR $=13 TO 19: PRINT 
INK 33 BRIGHT 1;AT £,313"0": N 
EXT $: LET 1=USR 64958: PRINT 1 
NK 33 BRIGHT 1;AT 0,313"D"3AT 20 
1313"A" 
27 RETURN 
28 LET 1=USR 65153: PRINT  INK 
33 BRIGHT 1;AT 0,13 "SSSSSSSSSS" 
3 INK 13 BRIGHT 03” * 
INK 3; BRIGHT 13 "SSSSSSSSSS"” 
29 RETURN 
3O LET 1=USR 65153: PRINT  INK 


3; BRIGHT 1;AT 20,13 "RRRRARRRRR' 
"; INK 13 BRIGHT 03" " 


INK 3; BRIGHT 1; "ERRERRERRAR" 

32 RETURN 

33 LET 1=USR 65153: FOR f=1 TO 
19: PRINT  INK 3; BRIGHT 13AT f 
,03"P": NEXT f: LET 1=USR 64958: 
PRINT — INK 33 BRIGHT 13AT 0,03" 
C"¿AT 20,03 "B" 

34 RETURN 

36 LET 1=USR 65153: FOR f=1 TO 
19: PRINT  INK 3; BRIGHT 1¡AT £ 
,313"0": NEXT f: LET 1=USR 64958 
: PRINT O INK 3; BRIGHT 13AT 0,31 
3"D"¿AT 20,31;"A" 

37 RETURN 

40 LET 1=USR 65153: PRINT  INK 


33 BRIGHT 1;¡AT 0,13 "SSSSSSSSSSSSSSS 


SSSSSSSSSSSSSSS" 
42 RETURN 
43 LET 1=USR 65153: PRINT  INK 


3; BRIGHT 1;¡AT 20,1; "RRRRERRRRRRRRER 


RRARERRARRERRARERER" 
45 RETURN 
50 REM 1 
60 CLS : GO SUB 6550 
63 IF llave2=1 THEN RETURN 
65 LET 1=USR 64958: PRINT  INK 
63 BRIGHT 1; PAPER 0; FLASH 1A 
T 1,153 "L" 
70 RETURN 
100 REM 2 
110 CLS 2» GO SUB 6100 
120 RETURN 
150 REM 3 
160 CLS : GO SUB 6400 
170 RETURN 
200 REM 4 
210 CLS : GO SUB 6100 
220 RETURN 
250 REM 5 
260 CLS : GO SUB 6100 
270 RETURN 
300 REM 6 
310 CLS : GO SUB 6100 
320 RETURN 
350 REM 7 
360 CLS : GO SUB 6100 
370 RETURN 
400 REM 8 
410 CLS : GO SUB 6400 
420 RETURN ss 
450 REM 9 
460 CLS : GO SUB 6400 
470 RETURN 
500 REM 10 
510 CLS : GO SUB 6050 
520 RETURN 
550 REM 11 
560 CLS : GO SUB 6150 
570 RETURN 
£00 REM 12 
610 CLS : GO SUB 6200 
620 RETURN 
£50 REM 13 
660 CLS : GO SUB 6550 
670 RETURN 
700 REM 14 
710 CLS : GO SUB 4000 
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720 RETURN 1800 REM 36 
750 REM 15 1810 CLS : GD SUB 6150 
760 CLS : GO SUB 4000 1820 RETURN 

770 RETURN 1850 REM 37 

800 REM 16 1860 CLS : GO SUB 6000 
810 CLS : GO SUB 6350 1870 RETURN 

820 RETURN 1900 REM 38 

850 REM 17 1910 CLS : GO SUB 6000 
860 CLS : GO SUB £200 1920 RETURN 

870 RETURN 1950 REM 39 

900 REM 18 1960 CLS : GO SUB 6000 
910 CLS : GO SUB 6700 1970 RETURN 

913 IF llave4=1 THEN RETURN 2000 REM 40 

915 LET 1=USR 64958: PRINT  INK 2010 CLS : GO SUB 6300 
63 PAPER 0; BRIGHT 13 FLASH 14 2020 RETURN 
T 1,153 "L" 2050 REM 41 

920 RETURN 2060 CLS : GO SUB 6500 
950 REM 19 2070 RETURN 

960 CLS : GO SUB 6400 2100 REM 42 

970 RETURN 2110 CLS : GO SUB 6450 
1000 REM 20 2120 RETURN 

1010 CLS : GO SUB 6300 2150 REM 43 


2160 CLS : GO SUB 6100 
2170 RETURN 
2200 REM 44 
2210 CLS : GO SUB 6100 
2220 RETURN 
2250 REM 45 
2260 CLS : GO SUB 6000 
2270 RETURN 
2300 REM 46 
2310 CLS : GO SUB 6000 
2320 RETURN 
2330 REM 47 
2360 CLS : GO SUB 6000 
2370 RETURN 

2400 REM 48 
ea co A O 2410 CLS : GO SUB 6000 
1300 REM 26 2420 RETURN 
1310 CLS : GO SUB 6100 2450 REM 49 
1320 RETURN 2460 CLS : GO SUB 6200 
1350 REM 27 2470 RETURN 


1020 RETURN 
1050 REM 21 
1060 CLS : GO SUB 6150 
1070 RETURN 
1100 REM 22 
1110 CLS : GO SUB 6350 
1120 RETURN 
1150 REM 23 
1160 CLS : GO SUB 6350 
1170 RETURN 
1200 REM 24 
1210 CLS : GO SUB 6350 
1220 RETURN 
1250 REM 25 


1360 CLS : GO SUB 6000 2500 REM 50 
1370 RETURN 2510 CLS : GO SUB 6250 
1400 REM 28 2520 RETURN 
1410 CLS : GO SUB 6100 2550 REM 51 
1420 RETURN 2560 CLS : GO SUB 6150 
1450 REM 29 2570 RETURN 
1460 CLS : GO SUB 6100 2600 REM 52 
1470 RETURN 2610 CLS : GO SUB 6100 
1500 REM 30 2620 RETURN 
1510 CLS : GO SUB 6050 2650 REM 53 
1520 RETURN 2660 CLS : GO SUB 6200 
1550 REM 31 2670 RETURN 
1560 CLS : GO SUB 6500 2700 REM 54 
1570 RETURN 2710 CLS : GO SUB 6150 
1600 REM 32 2720 RETURN 
1610 CLS : GO SUB 6550 2750 REM 55 
1620 RETURN 2760 CLS : GO SUB 6350 
1650 REM 33 2770 RETURN 
1660 CLS : 60 SUB 6400 2800 REM 56 
1670 RETURN 2810 CLS : GO SUB 6200 
1700 REM 34 2820 RETURN 
1710 CLS : GO SUB 6400 2850 REM 57 
1720 RETURN 2860 CLS : GO SUB 6150 
1750 REM 35 2870 RETURN 
1760 CLS : GO SUB 6050 2900 REM 58 


1770 RETURN 2910 CLS : GO SUB 6000 


2920 
2950 
2960 
2970 
3000 
3010 
3020 
3050 
3060 
3070 
3100 
3110 
3120 
3150 
3160 
3170 
3200 
3210 
3220 
3250 
3260 
3270 
3300 
3310 
3320 
3350 
3360 
3370 
3400 
3410 
3420 
3450 
3460 
3470 
3500 
3510 
3520 
3550 
3560 
3565 
3366 


RETURN 

REM 59 

CLS : GO SUB 6000 
RETURN 

REM 60 

CLS » GO SUB 6200 
RETURN 

REM 61 

CLS : GO SUB 6450 
RETURN 

REM 62 

CLS : GO SUBE 6000 
RETURN 

REM 63 

CLS : GO SUB 6000 
RETURN 

REM 64 

CLS : GO SUB 6350 
RETURN 

REM 65 

CLS : GO SUB 6400 
RETURN 

REM 66 

CLS : GO SUB 6350 
RETURN 

REM 67 

CLS : GO SUB 6350 
RETURN 

REM 68 

CLS : GO SUB 6350 
RETURN 

REM 69 

CLS : GO SUB 6350 
RETURN 

REM 70 

CLS : GO SUB 6300 
RETURN 

REM 71 

CLS : GO SUB 6250 
IF llavel=1 THEN RETURN 
LET 1=USR 649538: PRINT  INK 


63 PAPER 0; FLASH 1; BRIGHT 14 
T 1,153 "L" 


3570 
3600 
3610 
3620 
3650 
3660 
3670 
3700 
3710 
3720 
3750 
3760 
3770 
3800 
3810 
3820 
3850 
3860 
3870 
3900 
3910 
3920 
3950 
3960 
3970 


RETURN 
REM 72 
CLS : GO SUB 6500 
RETURN 
REM 73 
CLS : GO SUB 6150 
RETURN 
REM 74 
CLS : GO SUB 6400 
RETURN 
REM 75 
CLS : GO SUB £400 
RETURN 
REM 76 
CLS : GO SUB 6400 
RETURN 
REM 77 
CLS : GO SUB 4400 
RETURN 
REM 78 
CLS : GO SUB 6400 
RETURN 
REM 79 
CLS : GO SUB 6400 
RETURN 


4000 REM 80 
4010 CLS : GO SUB 6050 
4020 RETURN 

4050 REM 81 

4060 CLS : GO SUB 6500 
4070 RETURN 

4100 REM 82 

4110 CLS : GO SUB 6500 
4120 RETURN 

4150 REM 83 

4160 CLS : GO SUB 6500 
4170 RETURN 

4200 REM 84 

4210 CLS : GO SUB 6550 
4220 RETURN 

4250 REM 85 

4260 CLS : GO SUB £400 
4270 RETURN 

4300 REM 86 

4310 CLS : GO SUB 6400 
4320 RETURN 

4350 REM 87 

4360 CLS : GO SUB 6400 
4370 RETURN 

4400 REM 88 

4410 CLS : GO SUB 6400 
4420 RETURN 

4450 REM 89 

4460 CLS : GO SUB 6400 
4470 RETURN 

4500 REM 90 

4510 CLS : GO SUB 6300 
4520 RETURN 

4550 REM 91 

4560 CLS : GO SUB 6450 
4570 RETURN 

4600 REM 92 

4610 CLS : GO SUB 6300 
4620 RETURN 

4650 REM 93 

4660 CLS : GO SUB £600 
4670 RETURN 

4700 REM 94 

4710 CLS-: GO SUB 6450 
4720 RETURN 

4750 REM 95 

4760 CLS : GO SUB 4400 
4770 RETURN 

4800 REM 96 

4810 CLS : GO SUB 4400 
4820 RETURN 

4850 REM 97 

4860 CLS : GO SUB 4400 
4870 RETURN 

4900 REM 98 

4910 CLS : GO SUB 6400 
4920 RETURN 

4950 REM 99 

4960 CLS : GO SUB 4400 
4970 RETURN 

5000 REM 100 

5010 CLS : GO SUB 6650 
5013 IF llave3=1 THEN RETURN 
5015 LET 1=USR 64958: PRINT  INK 
63 BRIGHT 1; FLASH 1; PAPER 054 
Ti,153"L" 

5020 RETURN 

5100 REM MUERTE DEL ARQUERO 


m PROGRAMAS 


S110 LET 1=USR 644958: PRINT AT x»x 
,y3"S": PRINT AT x+1,y3"0R"z FOR 
f=1 TO 20: NEXT £f: PRINT AT x,y 
3"QUiA7 x+1,y3"S": FOR f=1 TO 10 

Oz NEXT £ 

5120 LET vidas=vidas-1 

5130 IF vidas=0 THEN STOP 

5140 LET x=10: LET bi=23: LET y= 
10: LET q=0: LET e=0: CLS : GO T 
O 7040 

5190 RETURN 

5950 PRINT AT 21,0; "VIDAS: "¿vida 
sy” PUNTOS: "¿puntos;z” LLAVES 
:2"3llaves .' 

5970 RETURN 

6000 REM DECORADO 1 

6010 BORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6020 GO SUE 20: GO SUB 25: GO SU 
B 30: GO SUB 28 

6040 RETURN 

6050 REM DECORADO 2 

6060 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6070 GO SUE 30: GO SUB 36: GO SU 
B 40: GO SUB 20: LET L=USR 64763 
23 PRINT  INK 7; BRIGHT 1;AT 10,2 
5;"6C1"¡AT 9,253"FDH";AT 8,26; "E 


" 


6080 RETURN 

6100 REM DECORADO 3 

6110 BORDER Oz PAPER Oz INK 4: B 
RIGHT O: CLS 

6120 GO SUB 40: GO SUB 20: GO SU 
B 25: GO SUB 30 

6130 RETURN 

6150 REM DECORADO 4 

6160 BORDER Oz PAPER O: INK 4: B 
RIGHT O: CLS 

6170 GO SUB 33: GO SUB 28: GO SU 
B 30: GO SUB 25 

6180 RETURN 

6200 REM DECORADO 5 

6210 BORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6220 GO SUB 28: GO SUB 30: GO SU 
B 36: GO SUB 20: LET L=USR 64763 
2 PRINT— INK 7; BRIGHT 1;AT 10,2 


5;”GCI"3AT 9,253"EDH"3AT 8,26; "E, 


6230 RETURN 

6250 REM DECORADO 6 

6260 BORDER Oz PAPER O: INK 4: E 
RIGHT O: CLS 

6270 GO SUB 30: GO SUB 40: GO SU 
B 33: GO SUB 36: LET L=USR 64763 
3 PRINT  INK 7; BRIGHT 1;AT 10,2 
S;"GCI"¿AT 9,25; "EDH";AT 8,263 "E 
6280 RETURN 

6300 REM DECORADO 7 

6310 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6320 GO SUB 28: GO SUB 43: GO SU 
B 20: GO SUB 36: LET L=USR 64763 
2 PRINT— INK 73 BRIGHT 1;AT 10,2 
33"GCI"3AT 9,25; "EDH";AT 8,26; "E 


6330 RETURN 

£350 REM DECORADO 8 

6360 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6370 GO SUB 43: GO SUB 28: GO SU 
B 20: GO SUB 25: LET 1=USR 64763 
6380 RETURN 

6400 REM DECORADO 9 

6410 BORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6420 GO SUB 40: GO SUB 43: GO SU 
B 20: GO SUB 25 

6430 RETURN 

£450 REM DECORADO 10 

6460 BORDER O: PAPER O: INK 4: BE 
RIGHT O: CLS 

"6470 GO SUB 28: GO SUB 33: GO SU 
B 43: GO SUB 25 

6480 RETURN 

6500 REM DECORADO 11 

6510 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6520 GO SUB 30: GO SUB 28: GO SU 
B 33: GO SUB 36: LET 1=USR 64763 
3 PRINT— INK 7; BRIGHT 1;AT 10,2 
5; "SCI"¡AT 9,253 "EDH"; AT 8,26; "E 
2” 

6530 RETURN 

6550 REM DECORADO 12 

6560 BORDER O: PAPER O: INK 4: B 
RIGHT O: CLS 

6570 GO SUB 40: GO SUB 30: GO SU 
B 33: GO SUB 25 

6580 RETURN 

6600 REM DECORADO 13 

6610 BORDER O: PAPER Oz BRIGHT O 
2 INK 4: CLS 

6620 GO SUB 28: GO SUB 33: GO SU 
B 36: GO SUB 43: LET 1=USR 44763 
2 PRINT  INK 73 BRIGHT 1¡AT 10,2 
53"GCI"3AT 9,25; "FDH"3AT 8,263 "E 
6630 RETURN 

6650 REM DECORADO 14 

6660 BORDER O: PAPER Oz INK 4: E 
RIGHT O: CLS 

6670 GO SUB 40: GO SUB 43: GO SU 
B 20: GO SUB 36: LET 1=USR 44763 
2 PRINT  INK 73 BRIGHT 1;AT 10,2 
5;"SCI"¿AT 9,25;"EDH";AT 8,26; "E 
6680 RETURN 

6700 REM DECORADO 15 

6710 BORDER O: PAPER Oz INK 4: B 
RIGHT O: CLS 

6720 GO SUB 33: GO SUB 43: GO SU 
B 40: GO SUB 25 

6730 RETURN 

7000 REM BUCLE PRINCIPAL 

7010 CLS 

7020 LET fin=0: LET q=0: LET pan 
talla=45: LET numero=pantallax*50 
3 LET a=10+INT (RND*2): LET b=10 
+INT (RND*2): LET e=0: LET x=10: 
LET y=15: LET a$="AB" 

7030 LET w=0: LET llavelí=0: LET 
l1ave2=0: LET ITáve3=0: LETI1lav 
e4=0: LET puntos=0: LET vidas=3: 


LET b1í=23: LET 1llaves=0 

7040 LET numero=pantalla*50: GO 

SUB numero 

7045 GO SUB 5950 

7050 LET k$=INKEYS$: LET 1=USR 65 

153 

7060 POKE 23658,8 

7070 PRINT  INK 43 BRIGHT 13 PAP 

ER Oj3AT x,y3as (1); AT x+1,yzas(2) 

7080 IF k$="0" THEN LET y=y-1:2 

PRINT AT x,y3"G" : LET a$="GH": 

PRINT AT x+1,y3"H"'2 IF y<1 THEN 
LET y=1 

7090 IF k$="W" THEN LET y=y+1:2 

PRINT AT x,y-13 "A"3AT x+1,y-1;3 

"B": LET a$="AB"2 IF y>30 THEN 

LET y=30 

7100 IF k$="0" THEN LET x=x-12 

PRINT AT x+2,y3" "¿AT X+1,Y3"F"; 

AT X,Y3"E": LET as$="FE": IF x<1 

THEN LET x=1 

7110 IF k$="K" THEN LET x=x+12 

PRINT AT x-1,y3" "¿AT X,Y3"C"3AT 
X+1,Y3"D":z LET a$="CD": IF x>18 
THEN LET x=18 

7120 LET rnd=INT (RND*100): IF r 

nd>935 AND ATTR (9,25)=71 THEN L 

ET q=1: GO SUB 8600 

7125 1F rnd=37 AND x=7 AND y=18 

THEN GO SUB 9900 

7130 IF q=1 THEN LET puntos=pun 

tos+1z GO SUB 8600 

7140 IF x=1 OR x=18 OR y=1 OR y= 

30 THEN GO SUB 7500 

7220 IF ATTR (x,y)=71 OR ATTR (x 
+1,y)=71 THEN GO SUB 5100 

7230 IF llaves=4 AND pantalla=50 
AND w=0 THEN GO SUB 8700: LET 
llaves=0: LET fin=1: LET w=1 
7240 IF fin=1 AND x>7 AND x<13 A 

ND y=30 AND INKEY$="4W" THEN GO 
SUB 8700: GO TO 9000 , z 

7230 IF pantalla=60 AND fin=1 TH 
EN LET w=0:* LET 1llaves=4 

7490 GO TO 7050 

7500 IF ATTR (x+2,y)=1 AND INKEY 
="K" THEN CLS : LET pantalla=p 
antalla+10: LET bí=23: LET q=0: 
LET x=2: LET e=0: GO TO 7040 
7510 IF ATTR (x-1,y)=1 AND INKEY 
$="0" THEN CLS : LET bi=23: LET 
pantalla=pantalla-10: LET q=0: 
LET x=18: LET e=0: GO TO 7040 
7320 IF ATTR (x,y-1)=1 AND ¿NKEY 
$="Q" THEN CLS 2 LET b1=23: LET 
pantalla=pantalla-1: LET q=0: L 
ET y=30: LET e=0: GO TO 7040 
7330 IF ATTR (x,y+1)=1 AND INKEY 
$="W" THEN CLS 2: LET pantalla=p 
antalla+1: LET bi=23: LET q=0:2 L 
ET y=1: LET e=0: GO TO 7040 

7540 IF x>7 AND x<13 AND y=30 AN 
D llaves=0 AND pantalla=50 AND I 
NKEY$="W" AND fin=1 THEN GO TO 
9000 

7550 IF llaves=4 AND pantalla=50 
THEN GO SUB 8700: LET 1llaves=0 
2 LET fin=1 


7360 IF ATTR (x,y)=198 AND panta 
lla=71 THEN LET llaves=1laves+1 
2: LET llavel=1: LET puntos=punto 
s+100: GO SUB 7045 

7370 1F ATTR (x,y)=198 AND panta 
lla=1 THEN LET puntos=puntos+50 
3 LET llaves=1laves+1: LET llave 
2=1: GO SUB 7045 

73580 IF ATTR (x,y)=198 AND panta 
lla=100 THEN LET puntos=puntos+ 
150: LET llaves=1laves+1: LET 11 
ave3=1: GO SUB 7045 

7585 IF ATTR (x,y)=198 AND panta 
lla=18 THEN LET puntos=puntos+5 
O: LET llaves=1laves+1:* LET llav 
e4=1: GO SUB 7045 

75390 RETURN 

8600 IF q<>1 THEN RETURN : REM 

FLECHA 

8610 LET al=> 

8620 PRINT  INK 7; BRIGHT 1;AT a 
1,b13"-"3 INK 43 BRIGHT O;¿AT al, 
bi+1;5" "¿AT al-1,b1+13" "¿AT al+ 
E E 

8630 LET bi=b1-1 

8640 IF b1<1 THEN PRINT AT a1,1 
3" "2 LET q=0: LET bi=23:3 RETURN 


8690 RETURN 

8700 FOR f=13 TO 7 STEP -12 FOR 
s=1 TO 20: NEXT s: PRINT  INK 13 
BRIGHT 13AT £,313" "2 NEXT £ 

8710 RETURN 

9000 REM FIN 

9010 CLS 


9020 LET cont=0: LET x=18: LET y 
=1 


9030 LET a$="AB"z LET s$="SHGHIGIG 


9040 LET 1=USR 64958: PRINT BRI 
GHT 13 INK 4; PAPER O3AT 20,05% 
23 LET 1=USR 65153: PRINT  INK 6; 
BRIGHT 1; PAPER O AT x,yjas$(1); 
AT x+1,yja$(2) 
9045 IF fin=1 THEN GO SUB 9200: 
LET fin=0 
9050 LET k$=INKEYS$: POKE 23658,8 
9060 IF k$="0" THEN LET y=y-1: 
PRINT AT x,y+13" ": LET as$="GH": 
PRINT AT x+1,y+13” "2 IF y<1i TH 
EN LET y=1 
9070 IF k$="W" THEN LET y=y+13 
PRINT AT x,y-13" "3AT x+1,y-13"” 
"3 LET a$="A4B" IF y>15 THEN LE 
T y=15: LET s$=s5$(2 TO )+s$(1): 
LET cont=cont+1 
9080 IF cont=100 THEN GO TO 930 
o 
9190 GO TO 9040 
9200 LET 1=USR 65153: PRINT  INK 
6; PAPER Oz BRIGHT 1;AT 15,133" 
"MN": PRINT  INK 53 BRIGHT 1; PAP 
ER OjzAT 14,13;"KL"53AT 13,133 "1J" 
9210 LET w=0: LET 1=0: LET m$=" 
Te estaba esperando Arquero..." 
9220 PRINT  INK O¿AT 11,w3m$ 
9225 FOR £=0 TO 313 PRINT  INK 4 
¿AT 11,f3 OVER 13" “2 FOR s=1 TO 


2 PROGRAMAS 


5: NEXT s: NEXT 4 
9230 FOR s=1 TO 50: NEXT s: IF 1 
=1 THEN GO SUE 9240: RETURN 
9235 FOR $f=0 TO 31: PRINT AT 11, 
£3" "2 NEXT $3 LET m$=" Sigue y 
llegaras a tu destino": LET 1l=1: 
GO TO 9220 
9240 FOR £=0 TO 31: PRINT AT 11, 
$3" "2: NEXT f: LET 1=USR 44958: 
PRINT — INK 5; PAPER O; BRIGHT 1; 
AT 13,13;"MN";AT 14,133"0P": FOR 
f=1 TO 15: NEXT $: PRINT  INK S 
3 BRIGHT 13 PAPER O¡AT 13,133 "0UR 
"¡AT 14,133 "ST":2 FOR f=1 TO 153 
NEXT £ 3 
9245 PRINT AT 13,133" "¿AT 14,1 
E 3 e 
9250 RETURN 
9310 LET 1=USR 65153: FOR $=15 T 
O 31: PRINT BRIGHT 1; INK 6;AT 
18,3 "A"; AT 19,£3"B"2z PRINT AT 3 
By f=19"* *1AT: 19 ,t=15" 1 NEXT + 
9320 BORDER 1: PAPER 12 INK 7: B 
RIGHT 1: CLS 
9330 LET 1=USR 64958: PRINT  INK 
73 BRIGHT 1;AT 20,03 "GHIJHGIJGIJ IHG 
IHGHIHIJJHJHIGIGIJI" 
9340 PRINT — INK 7; BRIGHT 1; PAP 


ER 1;AT 18,0;" EFEFEFEFEFEFEFEFEFE 
FEFEFEFEf EFEFEFEFEFEFEFEFEFEFEFE 
FEFEFEE 

9350 LET as$="LM": LET 1=USR 6476 

31 PRINT INK 33 BRIGHT 1;AT 17, 

Si "NO"¿AT 17,25;"N0": FOR £=13 T 

O 16: PRINT— INK 33 BRIGHT 1;AT 

+, ,53jas¡AT f£,253a$: NEXT £f: PRINT 

INK 33 BRIGHT 13AT 12,53 "JIK"3A 

T 12,253 JK" 

9360 LET 1=USR 64958: FOR +$=10 T 

O 11: PRINT — INK 63 PAPER 23 BRI 

GHT 1;AT 4,43 "KKKKKEKKKKKKKKK"3 1 

NK 73 BRIGHT Oj PAPER 13" ds 

RIGHT 13 PAPER 23 INK 6; "KKKKKKK 
KK" NEXT £ 

9370 LET 1=USR 64763: PRINT  INK 

4; BRIGHT 1;AT 0,0; "OSTUTTUOSTUQUT 
OSUTUTOTSTSTS" "¡AT 1,03"R"3AT 

1,73 "R"¿AT 1,113"R"3AT 1,143"R"3 

AT 1,20; "R" 

9375 LET 1=USR 64763: PRINT  INK 
7; BRIGHT 1;AT 9,9;"GC"3"1"jAT 
8,9;"FDH"¿AT 7,10;"E"¡AT 9,123"B" 

"AT 8,12;"A" 

9380 LET 1=USR 64763: LET n=14: 

FOR £f=17 TO O STEP -13 PRINT IN 

K 2; BRIGHT 1;3AT €,n3"P": LET n= 

n+1: NEXT £ 

9390 LET 1=USR 64958: PRINT AT 4 

1203"EF": LET 1=USR 65153: PRINT 

AT 3,20; "EL" AT 2,203 "13" 

9400 PRINT — INK 6; BRIGHT 1;AT 1 

8,0;"A"¡AT 19,0;"B"z FOR f=1 TO 

10: NEXT €: PRINT AT 19,03" "¿AT 

18,03" ": PRINT  INK 63 BRIGHT 

13971 17,1;3"A"3AT 19,13"B": FOR £ 

=1 TO 102 NEXT €: PRINT AT 17,13 

". "3 PRINT-A71 18,13” * 

9410 PRINT — INK 6; BRIGHT 1;AT 1 


6,23"A"¡AT 17,2;"B": FOR f=1 TO 
10: NEXT £: PRINT AT 16,23" "¡AT 
17,23" "2 PRINT  INK 6; BRIGHT 
1397 16,33"4"¿A8T 17,33"B": FOR $ 
=1 TO 10: NEXT €: PRINT AT 16,3; 


"o"; PRINT AT 17,33” ": FOR f=1 
TO 10: NEXT 4 


9420 FOR £=8 TO 13: PRINT  INK 6 
3 BRIGHT 1;AT 16,f3"A8"3AT 17,f3" 
E": PRINT AT 16,f-13" "¿AT 17,f- 
13" ": FOR s=1 TO 10: NEXT s: NE 
XT 4 

9430 LET 1=13: FOR f=16 TO O STE 

P.-1:3 PRINT— INK 63 BRIGHT 1;AT 
f+1,1;"BE"30T £,13"9": LET 1=1+12 
PRINT AT £,1-13" ”": PRINT AT £+ 
1,1-13" "» FOR s=1 TO 10: NEXT s 
2 NEXT £ 

9440 BORDER O: PAPER O: INK 7: B 
RIGHT 1: OVER Oz INVERSE O: CLS 
9450 PLOT OVER 1;150,87: DRAW 
OVER 10,50: DRAW OVER 140,0: 
DRAW OVER 1;0,-50:2 DRAW OVER 1 
3-41,0: FOR £=0 TO 15: PLOT OVE 
R 13153+INT_"(RND*38),89+INT (RND 
*48): NEXT £ 

9500 LET 1=USR 651532: PRINT  INK 
53 BRIGHT 1¡AT 5,143"1IJ"¡AT 6,1 
4 "KL" 

9510 PRINT AT 3,03" Atraviesa la 
puerta Arquero...” 

9520 LET 1=USR 65153: PRINT  INK 
6; BRIGHT 1;AT 10,03"A"¡AT 11,0 
¿Bu 

9530 LET 1=USR 64763: PRINT  INK 
73 BRIGHT 1;AT 9,28;"6CI";AT 8, 
283 "EDH"5AT 7,29; "E" 

9535 FOR f=1 TO 50: NEXT €: PLOT 
220,111 

9540 DRAW -25,10: PLOT 220,111: 
DRAW -25,0: PLOT 220,111: DRAW — 
25,10 

93560 FOR £=4 TO 11: FOR n=18 TO 


232 PRINT AT €£,n3" ": NEXT nm: NE 
XT 


9570 FOR s=1 TO 10: FOR f=0 TO 7 
3 OUT 254,f: NEXT f: NEXT s: BOR 
DER O 

9580 PAPER Oz INK 72 BRIGHT Oz C 
Ls 

9590 LET 1=USR 65153: PRINT  INK 
5; BRIGHT 1;AT 10,153 "IJ"3AT 11 
153 "KL" 

9595 PRINT AT 8,03" Venger 
ha vencido”: FOR f=1 TO SO: NEXT 
f: PRINT AT 8,0;"No pierdas la 
esperanza Arquero ": FOR f=1 TO 
100: NEXT £: PRINT AT 7,03" Otra 


oportunidad tendras en el futur 
o Arquero,en tu proxima avent 


ura...": FOR f=1 TO 100: NEXT £ 
9600 REM MENU 

9610 BORDER Oz PAPER Oz INK 5: B 
RIGHT 1: CLS 

9620 PRINT AT 6,10; "S-JUGAR"3AT 
8,10; "I-INSTRUCCIONES” 

9630 LET k$=INKEY$: POKE 23658,8 
9640 IF k$="S" THEN CLS : RUN 5 
9650 IF k$="I”" THEN GO SUB 9700 


9660 GO TO 9630 
9700 REM INSTRUCCIONES 
9710 BORDER 2: PAPER 2: INK 6: B 
RIGHT 1: CLS 
9720 LET 1=USR 65153: PRINT  INK 
1; BRIGHT 1; PAPER 7; FLASH 134 
T 0,10; "INSTRUCCIONES": PRINT 1 
NK 5; BRIGHT 1;¡AT 2,15;"1J";AT 3 
s155"KL"s PRINT AT 5,03" Escuch 
a atento Arquero: Debes 
conseguir las 4 llaves del vien 
to del Sur.Una vez con ellas de 
bes ir hacia el Este y al entra 
r en una determinada pantalla 
veras que todo sube a tus pies 


9730 PRINT $0;" Buena suerte.. 
« Arquero” 

9740 PAUSE O: GO TO 9600 

9900 REM AMO DEL CALABOZO 

9903 IF llaves<4 THEN GO TO 991 

o 

9905 IF llaves=4 THEN GO TO 995 

o 

9910 LET 1=USR 65153: PRINT AT 1 

0,155 "KL"5AT 9,153 "12": PRINT 1 
NK 03 BRIGHT O AT 8,13” Soy el 
amo del calabozo": FOR f=1 TO 3: 
Oz PRINT— INK 73 BRIGHT 1;AT 8,4 
3 OVER 13" "2 NEXT £3 FOR f=1 TO 
30: NEXT $: FOR f=1 TO 30: PRIN 
TATO8,f3" "s NEXT € 

9915 LET q$=" llaves”: IF llaves 
=3 THEN LET q$=" llave” 

9920 PRINT  INK O; BRIGHT O;AT 8 
sis” Debes encontrar ";4-llav 
esjq$: FOR f=1 TO 30: PRINT  INK 
73 BRIGHT 1;AT 8,f; OVER 13" "s 
NEXT £: FOR £$=1 TO 30: NEXT 42 
FOR f=1 TO 30: PRINT AT 8,43" ": 
NEXT £ 

9930 LET 1=USR 64958: PRINT  INK 
6; BRIGHT 13AT 9,15; "MN" ¿AT 10, 
15;"0P"2 FOR F=1 TO 15: NEXT F:z 
PRINT — INK 53 BRIGHT 1;AT 9,153" 


OR"3AT 10,153"S"2 FOR £f=1 TO 15: 
NEXT $2 PRINT AT 9,153" "¿AT 1 
013" 2 
9940 RETURN 
9950 LET 1=USR 65153: PRINT AT 1 
0,153 "KL"3AT 9,153"1J": PRINT 1 
NK Oz BRIGHT O¿AT 8,1;" Soy el 
amo del calabozo": FOR f=1 TO 3 
O: PRINT  INK 7; BRIGHT 1;AT 8,4 
3 OVER 13" "2 NEXT f: FOR f=1 TO 
30: NEXT $: FOR $f=1 TO 30: PRIN 
TATO,f3"-"2 NEXT £ 
9960 PRINT  INK Oz BRIGHT O¡AT 8 
s13" Busca la Pantalla del Este 
"“s FOR f=1 TO 30: PRINT  INK 75 
BRIGHT 1¡AT 9,f; OVER 13" ": NEX 
T 4: FOR f=1 TO 30: NEXT f: FOR 
f=1 TO 30: PRINT AT 8,f3" ": NEX 
Ll: 
9970 LET 1=USR 64958: PRINT  INK 
4; BRIGHT 13AT 9,15; "1IN"3 INK 4 
3 BRIGHT 1;AT 10,15;”00": FOR F= 
1 TO 15: NEXT Fiz PRINT  INK 63 B 
RIGHT 1347 9,15;'2R "¡AT 10,153"5 
": FOR f=1 TO 15: NEXT $: PRINT 
AT 9,154" “5AT 10,15)" ” 
9980 RETURN 


Aunque el programa pueda parecer un 
poco largo, los resultados una vez meti- 
do y ejecutado, son realmente sorpren- 
dentes. Este juego cuenta con más de 
cien pantallas distintas dentro de las 
cuales estate seguro que te perderás. 

Antes de introducir el segundo progra- 
ma de los dos que componen el juego, 
introduce el que aparece a continua- 
ción: 


10 REM eme 00 se 96 606 6 MI HEM HH 
20 REM * PROGRAMA PARA INTRODUCIR * . 
30 REM * LOS NUMEROS DE LA FIG. 4 +* 
BO REA 6 6 MM III 


50 REM 
60 CLS 


70 PRINT "INTRODUCE LOS NUMEROS UNO A UNO Y” 
80 PRINT "PULSA “ENTER” DESPUES DE CADA UNO” 


90 LET N=0 


100 FOR 1=64568 TO 65535 
110 INPUT "NUMERO = "¿A 


120 POKE I1,A 
130 LET N=N+A 
140 NEXT 1 


150 IF N<>64588 THEN GOTO 500 


1650 CLS 


170 PRINT "PREPARA LA CINTA PARA GRABAR Y" 


180 PRINT 


190 PRINT FLASH 1;"PULSA UNA TECLA" 


200 PAUSE O 


25 PROGRAMAS 


220 CLS 


230 PRINT "OPERACION TERMINADA” 


240 GOTO 9999 
500 CLS 


510 PRINT "HA HABIDO ALGUN ERROR EN LA INTRODUCION" 
520 PRINT "DE LOS NUMEROS. 


Este programa te va a servir para intro- 
ducir todos los números que aparecen 
en la figura 4. 


1 168 O 33 81 252 17 88 
176 201 O 1 168 O 17 81 


255 237 176 201 


N 
sk 


y 

48 
NÑ 

m 


oo 


00000000000 
00000000000 
”90000000000 
0000o0o0oo0ooooo 
0OoOo0oo0ooooooY 
00000000 Oo0ooOo 
0000000000 
o00o0ooooooo 
000000o0o0o0oooo 
o00oo0ooooooco 
“00000 oO0vn.XO.,.. 
o00o0o0oocooooco 
0000o0oooooo 
oo0ooooooo 
00000000000 


16 33 20 25 
237 176 201 O 1 168 O 33 8 
17 20 253 237 176 201 66 90 
60 24 60 126 189 165 153 60 102 
102 102 36 195 189 189 189 60 4 
O 60 126 255 36 219 231 231 231 
219 189 189 0 0 165 90 90 60 40 
SO E CESEN ADS 
O O 128 128 192 192 192 224 224 
224 224 192 192 192 128 128 0 0 
127 255 127 36 36 36 36 O 248 2 
52 248 144 144 144 144 36 36 36 
36 36 36 36 36 144 144 144 144 1 
44 144 144 144 36 36 36 36 36 36 
255 255 144 144 144 144 144 144 
252 252 60 74 98 169 147 165 82 
60 255 255 255 126 126 £2 60 60 
60 60 24 24 24 8 8 O 255 255 25 
5 126 28 28 8 8 255 253 252 120 
56 48 16 0 255 255 143 144 4 0 
0001168 O 33 215 253 17 ee 2 
55 237 176 201 O 1 168 O 33 88 2 
55 17 215 253 237 176 201 3 3 7 
7 15 63 255 255 192 192 224 224 
240 252 255 255 255 255 252 240 
224 224 192 192 255 255 63 15 7 
7330 36 91 81 42 36 75520 1 


nooo o0oo.vL.o.0.£.O. 
— 
N 
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237 176 201 1 168 0 33 88 255 1 
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51 75 107 95 75 50 50 40 36 66 
66 99 0 24 164 164 152 164 172 2 
46 165 152 164 66 66 66 36 66 0 
25 61 61 25 61 189 127 61 25 36 
36 36 66 66 66 0 12 70 66 204 21 
O 214 250 210 76 76 20 36 66 66 
19880000001 34000000 
128 68 122299555315 94 1 
84 14% 160 160 160 192 240 0 2 1 
3 16 42 40 69 82 0 0 128 240 72 
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26 255 255 255 255 126 60 60 24 
24000000000000000 
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4 230 5 205 5 198 30 47 117 118 
27 3190620 60 66 66 126 66 6 
6 00 124 66-124 66 66 124006 
O 66 64 64 66 60 0 0 120 68 66 6 
6 68 120 0 0 126 64 124 64 64 12 
60.0 126 64 124 64 64 64 0 0 60 
66 64 78 66 60 0 0 66 66 126 66 
66 66 0062888862002 2 
0 0 68 72 112 72 68 
4 64 
o 


2 
000 


4 126 0 0 66 


6 
102 90 66 66 66 O O 66 98 82 74 


70 66 00 60 66 66 66 66 60 0 0 
124 66 66 124 64 64 00 60 66 5 
6 82 74 60 00 126 132 132 248 1 
36 132 32 0 241 O 240 9 8 240 O 
23 249 52 140 20 32 48 38 74 144 
144 244 122 1 60 2 


6 236 18 164 74 146 1080004 Estos son los números que tienes que 
74 181 721700000 5 138 116 [A introducir en memoria con ayuda del 
137004 106 14566834000 programa 3. 


O 160 89 166 17 255 64 64 64 255 
444 24 3624885685600 
0001 1640000 128 44 8 16 


Estos números que tenemos que intro- 
ducir son las rutinas en código máquina 


INSTRUCCIONES 


cu 
be 
vi 
s 

ni 
al 
Pi 


£ 
5 
e 
a 
P 
t 
2 


lA Instrucciones del programa «Dragones y 
mazmorras». 


y los caracteres programados por el 
usuario (UDG) que se utilizan en el pro- 
grama. 

Una vez que estén todos los números 
metidos en la memoria del ordenador, el 
programa los grabará en una cinta de 
cassette. 

Ahora es el momento de meter el pro- 
gramd más largo. Lo tendrás que grabar 
a continuación de los números. Según 
esto, hay que seguir cuatro pasos antes 
de tener el programa. 

Estos números que tenemos que intro- 
ducir son las rutinas en código máquina 
y los caracteres programados por el 
usuario (UDG) que se utilizan en el pro- 
grama. 

Una vez que estén todos los números 
metidos en la memoria del ordenador, el 
programa los grabará en una cinta de 
cassette. 

Ahora es el momento de meter el pro- 
grama más largo. Lo tendrás que grabar 
a continuación de los números. Según 
esto, hay que seguir cuatro pasos antes 
de tener el programa listo para jugar. Es- 
tos son: 


1. Introducir el primer programa de 
los dos que componen el juego y grabar- 
lo. 

2. Introducir el programa 3. 

3. Ejecutar el programa 3 e introducir 
los números que aparecen en la figura 4. 
Después habrá que grabar los números 
introducidos a continuación de lo que ya 
habíamos grabado. 


4. Introducir el segundo programa 
que compone el juego y grabarlo a con- 
tinuación de los dos caracteres. 


PUNTOS: A errar 


y z UNTOS: 0 presas. E 


lA Dos pantallas del juego en plena 
ejecución. 


Hay que hacer una advertencia: todas 
las letras que aparecen subrayadas en el 
programa no son letras normales del or- 
denador, sino los caracteres gráficos de 
éste. Para introducirlos en el programa 
tenemos que poner el cursor en modo 
GRAPHICS y pulsar la tecla que corres- 
ponda. 

Las teclas que nos van a permitir mover 
a nuestro héroe por la pantalla y de una 
habitación a otra son: 


O Movimiento hacia arriba 
K Movimiento hacia abajo 
A Movimiento hacia la izquierda 
W Movimiento hacia la derecha 
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14) 


Caracteres definibles utilizados en el 
programa. 


0 xO0m_adN 


' Programa: Estadística 


El programa que aparece a continua- 
ción está especialmente pensado para 
aquéllos que, estudiando una carrera o 
por su trabajo, necesitan hacer cálculos 
estadísticos con cierta velocidad. 

Este puede funcionar perfectamente en 
el IBM. Para el resto de los ordenadores 
hay que realizar los siguientes cambios: 


COMMODORE: 


26 PRINT CHR$(147) 
59 PRINT CHR$(147) 


REM 06 0d 0d 0 00 ME MD DM MIMI 
REM er ESTADISTICA (RECTAS DE REGRESION) dotada dada lata tadal 


REM IM POR : JUAN MANUEL GUTIERREZ LEITON FEMMIM MMMM 
e 


REM 
REM 


FREMA 60 6 6 06 6  M  DH  I 
REM rr (0) EDICIONES SIGLO CULTURAL (1987) 0 M6 dd 6 M6 0 MH 
REM 4d dd dd dd dd DM MM A IM E MH A MM IM DE MM E ME MM A MM HEM A MMMM II MM MI E HH 


REM este programa sirve para trabajar con variables 

REM estadisticas bidimensionales 

REM x --> x” es la pregunta por si hay cambio en la variable »x 

REM y --> y' es la pregunta por si hay cambio en la variable y 

REM o(x) es la marca de clase de la variable x que ocupa el lugar central 
REM c(x) es la amplitud del intervalo de la variable » 

REM o(y) es la marca de clase de la variable y que ocupa el lugar central 
REM c(y) es la amplitud del intervalo de la variable y 


REM alió es la media de la variable x 
REM a0i es la media de la variable y 


REM — m20 es la varianza de la variable » 
REM m'20 es la varianza de la variable x cuando ha habido cambio x --> x” 
REM m02 es la varianza de la variable y 
REM — m'02 es la varianza de la variable y cuando ha habido cambio y --> y' 


REM mil es la covarianza 
DIM Z(1600) 
CLS 
INPUT "numero de datos de x "A 
INPUT "numero de datos de y ";B 
INPUT "x -->x"* (S/N) "3XS$ 
INPUT "y -->y" (S/N) "3Yg 
IF X$="S" OR X$="s" THEN GOTO 33 
GOTO 35 
INPUT "o(x)=";C 
INPUT "c(x)="3D 
IF Y$="S" OR Y$="s" THEN GOTO 37 
GOTO 39 
INPUT "ot(ty)="¡E 
INPUT "c(y)="3F 
FOR G=i TOA 
PRINT "x("363")="3 
INPUT Z(G) 
NEXT G 
FOR G=1 TO B 
PRINT "y("3G63")="; 
INPUT Z(G+A) 
NEXT G 
I=0 


48 


49 
50 


51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
8o 
81 
82 
83 
84 
8s 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 


100 
101 
102 


FOR G=1 TOA 


FOR H=1 TO B 
I=I+1 
PRINT "X"363"Y"3H; 
INPUT Z(A+B+1) 
NEXT H 
NEXT G 
N=0 
FOR G=B+A+1" TO B+A+A*B 
N=N+Z (G) 
NEXT G 
CLs 
LOCATE 12,35 
PRINT "poblacion="3N 
GOSUB 225 
J=0 
FOR G=1 TO A 
FOR H=1 TO B 
J=3+7 (6)+*Z (GrA+B+H) 
NEXT H 
NEXT G 
J=J/N 
L=0 
FOR G=1 TO B 
FOR H=1 TO A 
L=L+Z (4+G)*Z (A+G+Bx*H) 
NEXT H 
NEXT G 
L=L/N 
M=0 
FOR G=1 TO A 
FOR H=1 TO B 
M=M+7Z (6) +*Z (H+M)+*Z (H+A+Bx*G) 
NEXT H 
NEXT G 
M=M/N 
D=0 
FOR G=1 TO A 
FOR H=1 TO B 
O=0+ (7 (G)72)*Z (GrA+B+H) 
NEXT H 
NEXT G 
D=0/N 
P=0 
FOR G=1 TO B 
FOR H=1 TO A 
P=P+ (7 (A+G6))"2*Z (A+G+Hx*E) 
NEXT H 
NEXT G 
P=P/N 
IF X$="s" OR X$="S" THEN GOTO 104 
IF Y$="S" OR Y$="s" THEN GOTO 102 
GOSUB 223 
GOTO 106 
GOSUBE 204 


103 GOTO 106 

104 IF Y$="S" OR Y$="s" THEN GOSUB 157:GOTO 106 
105 GOSUB 185 

106 CLS 

107 LOCATE 8,22 

108 PRINT "medias de las variables estadisticas” 
109 LOCATE 9,22 

TLOLPRINT MA A dj 


111 


LOCATE 11,26 


112 PRINT "media de la variable x=";J 
113 LOCATE 13,26 
114 PRINT "media de la variable y=";3L 
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115 
116 
117 
118 
119 
120 
121 


122 


123 
124 
125 
126 
127 
128 
129 
130 
131 

132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 

152 
153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


GOSUB 225 

LOCATE 8,27 

PRINT "momentos respecto al origen” 

LOCATE 9,27 

PRINT  *——— om com o an cren acc pa 

LOCATE 11,35 

PRINT "alli="¿M 

LOCATE 13,35 

PRINT "a20=";0 

LOCATE 15,35 

PRINT "a02=";P 

GOSUB 225 

LOCATE 8,19 

PRINT "momentos centrales o respecto de la media" 
LOCATE 9,19 

PR MÁ A A e 
LOCATE 11,30 

PRINT"mi1="3M-Lx*J 

LOCATE 13,30 

PRINT"m20="30-J72 

LOCATE 15,30 

PRINT"m02="3P-L"2 

GOSUB 225 

LOCATE 8,18 

PRINT"pendientes de las rectas de regresion"” 
LOCATE 9,18 

PR INT A e 
LOCATE 11,25 

PRINT"pendiente 1="3 (M-Lx*J) / (0-32) 

LOCATE 13,25 

PRINT"pendiente 2="3 (M-Lx*J) / (P-L"2) 

GOSUB 225 

LOCATE 8,18 

PRINT "formulas de las rectas de regresion" 
LOCATE 9,18 

PRINT === ooo inc mc A e o e " 
LOCATE 11,15 

PRINT "de y sobre x --> y —-"3L3"="3 (M-L*J)/(0-372)3" (x 
LOCATE 13,15 


PATO 


PRINT "de x sobre Y —> xXx ="3Jp"="3 (ML) (PLA) (y -"pL3")" 


SOSUB 225 
END 
CLS 
LOCATE 4,10 


PRINT"datos estadisticos cuando hay cambio en las variables x e y" 


LOCATE 5,10 


PRINT "== noo 


LOCATE 7,25 

PRINT "media de x'="3J 
LOCATE 9,25 

PRINT "media de y'="¿L 
LOCATE 11,25 

PRINT "a'11="3¿M 
LOCATE 13,25 

PRINT "a'20="30 
LOCATE 15,25 

PRINT "a'02=";P 
LOCATE 17,25 

PRINT "m'11="3M-Jx*L 
LOCATE 19,25 

PRINT "m'20="30-J72 
LOCATE 21,25 

PRINT "m'02=";3P-L"2 
M=Dx*F*M+Dx*E*J+FCAL+CAE 
DO= (D"*2) *0+07"2+2*D*C*J 
P=(FO2Z)APAES2Z42FXERL 
J=D*J+C 


L=F*L+E 

GOSUB 225 

RETURN 

LOCATE 4,10 

PRINT "datos estadisticos cuando hay cambio en la variable x" 
LOCATE 5,10 

PRINT ” 

LOCATE 7,20 

PRINT "media de x'="3J 
LOCATE 9,20 

PRINT "a'11="3M 
LOCATE 11,20 

PRINT "a'20=";0 
LOCATE 13,20 

PRINT "m'11="3M-J+*L 
LOCATE 15,20 

PRINT "m'20="30-J72 
M=D*M+C*L 
O=O*D*2+0"24+2%CAD*J 
J=D*J+C 

GOSUB 225 

RETURN 

LOCATE 4,10 

PRINT "datos estadisticos cuando hay cambio en la variable y” 
LOCATE 5,10 


LOCATE 7,20 

PRINT "media de y'="¿L 
LOCATE 9,20 

PRINT "a'11="3M 
LOCATE 11,20 

PRINT "a'02=";P 

LOCATE 13,20 

PRINT "m'11="3M-Jx*L 
LOCATE 15,20 

PRINT "m'02="P-L"2 
PSPRES2Z+ES242EXFAL 
M=MF+E*J 

L=L*F+E 

GOSUB 225 

RETURN 

REM esta subrutina no necesita hacer ningun cambio 
RETURN 

LOCATE 23,23 

PRINT "pulse una tecla para continuar” 
A$=INKEYS 

IF A$="" THEN GOTO 227 
CcLs 

RETURN 


datos estadísticos cuando hay cambio en las a'02 = 772.5313 
variables x e y m'11 = 144.3609 

media de x' = 14.73661 m'20 = 298.8101 

media de y' = 21.03125 m'02 = 330.2178 

a'11 = 454.2902 pulse una tecla para continuar 


a'20 = 515.9777 


ÉS Ejemplo de ejecución del programa de 
estadística. 


a PROGRAMAS 


medias de las variables estadísticas 


media de la variable x = 48.20983 
media de la variable y = 130.1875 


pulse una tecla para continuar 


lA Ejemplo de ejecución del programa de 


estadística. 


60 POKE 214,12:POKEÉ 211,1 
106 PRINT CHR$(147) 

107 POKE 214,8:POKE 211,22 
109 POKE 214,9:POKE 211,22 
111 POKE 214,11:POKE 211,26 
113 POKE 214,13:POKE 211,26 
116 POKE 214,8:POKE 211,27 
118 POKE 214,9:POKE 211,27 
120 POKE 214,11:POKE 211,35 
122 POKE 214,13:POKE 211,35 
124 POKE 214,15:POKE 211,35 
127 POKE 214,8:POKE 211,19 
129 POKE 214,9:POKE 211,10 
131 POKE 214,11:POKE 211,30 
133 POKE 214,13:POKE 211,30 
135 POKE 214,15:POKE 211,30 
138 POKE 214,8:POKE 211,18 
140 POKE 214,9:POKE 211,18 
142 POKE 214,11:POKE 211,25 
144 POKE 214,13:POKE 211,25 
147 POKE 214,8:POKE 211,18 
149 POKE 214,9:POKE 211,18 
151 POKE 214,11:POKE 211,15 
153 POKE 214,13:POKE 211,15 
157 PRINT CHR$(147) 

158 POKE 214,4:POKE 211,10 
160 POKE 214,5:POKE 211,10 
162 POKE 214,7:POKE 211,25 
164 POKE 214,9:POKE 211,25 
166 POKE 214,11:POKE 211,25 
168 POKE 214,13:POKE 211,25 
170 POKE 214,15:POKE 211,25 
172 POKE 214,17:POKE 211,25 


174 POKE 214,19:POKE 211,25 
176 POKE 214,21:POKE 211,25 
185 POKE 214,4:POKE 211,10 
187 POKE 214,5:POKE 211,10 
189 POKE 214,7:POKE 211,20 
191 POKE 214,9:POKE 211,20 
193 POKE 214,11:POKE 211,20 
195 POKE 214,13:POKE 211,20 
197 POKE 214,15:POKE 211,20 
204 POKE 214,4:POKE 211,10 
206 POKE 214,5:POKE 211 
208 POKE 214,7:POKE 211 
210 POKE 214,9:POKE 211 
212 POKE 214,11:POKE 21 
214 POKE 214,13:POKE 21 
216 POKE 214,15:POKE 21 
225 POKE 214,23:POKE 21 
229 PRINT CHR$(147) 


MSX Y AMSTRAD: 


Para que este programa pueda funcio- 
nar en estos dos ordenadores, lo único 
que hay que hacer es cambiar de lugar 
los argumentos de todas las sentencias 
LOCATE que aparezcan en el programa. 
Por ejemplo, si tenemos la línea 127: 


127 LOCATE 8,19 


los que tengan un MSX o un AMSTRAD ten- 
drán que poner: 


127 LOCATE 19,8 
SPECTRUM: 


Los usuarios del SPECTRUM sólo tienen 
que cambiar todas las sentencias LOCA- 
TE que aparezcan en el programa por 
sentencias PRINT AT, conservando el or- 
den de los argumentos y añadiendo un 
punto y coma (;) al final de la línea. Por 
ejemplo, si tenemos la línea 127: 


127 LOCATE 8,19 
nosotros tendríamos que cambiarla por: 
127 PRINT AT 8,19; 


S útil señalar que el 
aspecto concreto de 
la tabla de decisión 
suele variar, pero es 
usual utilizar una serie 
de normas comunes 
que conviene tener 
en Cuenta: 


— Normalmente, se suelen incluir las 
reglas tipo AND (Y) las primeras de la ta- 
bla; para poner a continuación, en co- 
lumnas sucesivas, las reglas OR (0) y, por 
último, la regla ELSE, si hay en la tabla de 
decisión de que se trate. 


— Cuando una condición debe cum- 
plirse en la evaluación de una regla de de- 
cisión, se suele poner una S en la fila 
correspondiente; si no debe cumplirse, 
se suele poner una N (ver figura). Pero 
puede suceder que esa condición no in- 
tervenga (ni sí ni no) en la regla de deci- 
sión correspondiente, entonces suele po- 
nerse una raya (—) en la fila, si la regla 
de decisión es de tipo AND, y un asteris- 
co (*) si la regla es de tipo OR. 


— Se llaman funciones de decisión al 
conjunto de evaluaciones que las defi- 
nen y por el mismo orden en que se en- 
cuentran. Se llaman funciones simples 
aquellas en que no intervienen los signos 
— y”; por el contrario, aquellas en que sí 
intervienen estos signos, se llaman com- 
puestas. 


— Es importante comprobar las tablas 
de decisión para asegurarse de la com- 
pletud y no redundancia de las informa- 
ciones; en efecto, no tiene sentido incluir 
condiciones que no aparezcan refleja- 


TECNICAS 
DE ANALISIS 


TABLAS DE DECISION (4) 


Situaciones 


Condición 1 
Condición 2 
Condic. 
caso A 
Condic. 
caso B 
Condic. 


caso C 
Condición 4 


Condición m 


Tratamiento 1 
Tratamiento 2 
Tratamiento 3 
(ir a tabla B) 


AI MO AZ E AA 
XXX|Z Zo vn n nu 
¿ XIZ. 00 4 O Za 


Tratamiento m 


[A Un ejemplo de tabla de decisión. 


das con una $, al menos en alguna de las 
funciones de decisión de la tabla (com- 
pletud). Del mismo modo, la información 
no debe ser redundante: las diferentes 
reglas de decisión deben diferir, al me- 
nos, en alguna de las situaciones de de- 
cisión. Este proceso de comprobación se 
complica cuando las tablas son amplia- 
das y existen funciones de decisión com- 
puestas. Para transtormar tablas de deci- 
sión en programas, pueden establecerse 
los siguientes pasos (partiendo de trata- 
mientos elementales): 


a) Escribir todas las situaciones posi- 
bles, asignando a cada situación los tra- 
tamientos correspondientes y formando 
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la tabla con reglas simples. El que los tra- 
tamientos sean unitarios e independien- 
tes es muy importante cara a la simplifi- 
cación de los procesos y a su posible 
corrección posterior. Asimismo, es funda- 
mental que las reglas sean unitarias e in- 
dependientes unas de otras. Esta es, qui- 
zá, la fase crítica del diseño de la tabla 
de decisión y donde ha de ponerse en 
juego la capacidad de análisis de quien 
diseña la tabla. 


b) Agrupar todas las situaciones que 
conducen al mismo tratamiento elemen- 
tal. A veces es muy útil establecer un 
conjunto flexible de reglas AND y OR ar- 
ticuladas para agrupar el conjunto de si- 
tuaciones que conducen a un tratamien- 
to; si conceptualmente se refieren a un 
proceso, deben analizarse conjuntamen- 
te, aunque se ubiquen dentro de la tabla 
en posiciones diferentes. Deben conside- 
rarse las diferentes funciones de la tabla 
de decisión como un esquema lógico de 
análisis (útil para asegurar la consisten- 
cia de los datos, la facilidad de depura- 
ción de errores, etc.), pero no como es- 
quema de proceso en el desarrollo del 
programa: éste debe tener su propia es- 
tructura y su propia lógica. 


c) Han de simplificarse las reglas 
simples agrupándolas en reglas com- 
puestas, de acuerdo con el criterio ge- 
neral indicado en el apartado anterior. 


d) Pasar a formato tabla, ordenando 
las reglas de acuerdo con un criterio de 
frecuencia y número de «indiferencias» 
que en ella aparecen. (Se considera que 
aparece en la tabla de decisión una «in- 
diferencia» cuando en la columna 
correspondiente existe un — o un *; es 
decir, cuando la condición de que se tra- 
te no interviene en la definición de la fun- 
ción de decisión que se está analizan- 
do.) Si se conoce la frecuencia de apa- 
rición de las reglas de la tabla, se sitúan 
en las primeras posiciones las reglas 
para las que el producto de la frecuen- 
cia de aparición por el número de indi- 
ferencias sea mayor. Si no se conoce la 
frecuencia de las reglas, se escriben pri- 
mero las reglas con mayor número de in- 
diferencias. 


e) Por último, al pasar al ordinogra- 
ma correspondiente, se ha de trasladar 
primero la primera regla y de ésta, la 
condición que contenga menos indife- 
rencias. 


O Datos escalares 


NA de nuestras activi- 
dades más frecuen- 
tes en la vida diaria 
es la toma de datos y 
la realización de me- 
didas. Hablamos, por 
ejemplo, de que un 
objeto pesa 2 kg, de 
que la velocidad de un automóvil es de 
50 km por hora o de que la temperatura 
ambiente es igual a 27” C. Al realizar to- 
das estas medidas y expresarlas median- 
te números, estamos utilizando (aunque 
a menudo no somos conscientes de ello) 
una escala de medidas apropiada. Por 
ejemplo, al medir la masa de los objetos 
utilizamos en el sistema internacional de 
medidas de masa, basado en el kilogra- 
mo, y la medida de 2 kg marca una po- 
sición dentro de esta escala. Al mencio- 
nar la temperatura hacemos uso de la es- 
cala Celsius. Y así sucesivamente. 

Sin embargo, un mismo dato podría re- 
presentarse por dos medidas diferentes 
dependiendo de la escala que utilice- 
mos para medirlo. Por ejemplo, la misma 
temperatura ambiente se representa por 
la cifra de 27” C en la escala Celsius, y 
por la de 300* Kelvin en la escala de gra- 
dos absolutos. Los dos números, 27 y 300, 
se refieren, por tanto, a la misma situa- 
ción real. Pero para darnos cuenta de 
ello es preciso mencionar la escala de 
medida que se ha utilizado para obtener 
cada dato. En efecto, es evidente que 27 
no es igual a 300, considerados como nú- 
meros aislados. Pero también es obvio, 
para quien conozca las escalas de tem- 
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peratura, que 27” C es lo mismo que 
300" K. 


Ze “K 

300 

30 

277 C----- 300” K 

20 
290 

10 

0 280 

-10 270 


== — o | 


[a 
Fig. 1. 


Todas estas magnitudes, que pueden 
representarse mediante un numero que 
depende de la escala de medida que se 
utilice en cada caso, se llaman «magni- 
tudes escalares». También se dice que el 
dato concreto es un «escalar». Como 
puede imaginarse, la palabra «escalar» 
viene de «escala». En Matemáticas se lla- 
ma escalar a toda magnitud susceptible 
de medida, que no tiene dirección. 

Vamos a considerar ahora un caso 
algo más complicado: una longitud de 2 
cm ¿es un escalar? Es evidente que se 
trata de una magnitud susceptible de 
medida, pero ¿tiene dirección? A prime- 
ra vista podría parecernos que la longi- 
tud siempre tiene dirección. Pero pense- 
mos en esto: supongamos que decimos 
que una línea trazada en una hoja de pa- 
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pel tiene una longitud de 2 cm. ¿Hemos 
dicho algo sobre su dirección? Es eviden- 
te que no. La línea podría ir de arriba a 
abajo, de derecha a izquierda, estar muy 
cerca de un borde, en el centro del pa- 
pel, etc., manteniendo siempre la longi- 
tud de 2 cm. Por tanto, la medida de lon- 
gitud no tiene dirección, y se trata tam- 
bién en este caso de un dato escalar. 


m Vectores 


Ahora bien, si marcamos sobre una re- 
gla dos puntos separados por una distan- 
cia de 2 cm y especificamos la situación 
del punto de partida y el de llegada, sí 
estamos dando información sobre la di- 
rección. Si la línea comienza, por ejem- 
plo, en la marca de 12 cm y termina en 
la de 14 cm, el par (12, 14) nos indica que 
la longitud de la línea es de 2 cm, pero 
también especifica algo más, pues nos 
da la posición exacta que ocupan esos 
2 cm sobre la regla. Es decir, tenemos in- 
formación sobre la dirección. Por otra 
parte, obsérvese que este par de datos 
nos da también información sobre el sen- 
tido del movimiento al pasar del punto 
de partida al de llegada. En efecto, el 
par (12,14) indica que comenzamos en 
la marca 12 cm y avanzamos hasta la 
marca 14 cm, mientras que el par (14,12) 
nos hará recorrer en la misma línea en 


[A Fig. 2. 


sentido contrario. Por todas estas razo- 
nes, el dato (12,14) no puede considerar- 
se como un escalar, sino como un «vec- 
tor». 


En Matemáticas se llama vector a todo 
conjunto de datos que define la magni- 
tud, la dirección y el sentido de una me- 
dida. La palabra vector viene del latín y 
significa «el que conduce», pues los da- 
tos que constituyen un vector (como en 
el par de números 12,14) nos «conducen» 
desde el principio hasta el final de la 


magnitud provista de dirección y de sen- 
tido a la que están midiendo. 

Veamos otro ejemplo. Supongamos 
que trazamos una línea de 2 cm de lon- 
gitud, pero esta vez la línea no está mar- 
cada en el borde de una regla, sino di- 
bujada en una hoja de papel en blanco. 
¿Cómo definiremos exactamente su po- 
sición, dirección y sentido? Muy sencillo: 
igual que en el caso anterior, basta con 
dar la posición del punto de partida y el 
final de la línea. Pero ¡cuidado! En este 
caso estos puntos no quedan determina- 
dos por un solo número, como en el caso 
del borde de la regla. Veamos por qué. Su- 
pongamos que decimos que el punto de 
partida se encuentra a 10 cm del vértice 
inferior izquierdo del papel. Pero ¿en 
qué dirección debemos movernos esos 
10 cm? ¿Horizontalmente? ¿Verticalmen- 
te? ¿En diagonal? 

No es difícil comprobar que, en este 
caso, la posición exacta del punto de 
partida queda determinada por dos me- 
didas de longitud: las distancias de di- 
cho punto a dos de los bordes del papel 
que sean perpendiculares entre sí. Por 
ejemplo, podemos decir que el punto de 
partida de la línea se encuentra a 10 cm 
del borde izquierdo y a 7 cm del borde 
inferior. Del mismo modo, el punto final 
puede estar a 10 cm del borde izquierdo 
y a 9 cm del inferior. Por tanto, el par 
(10,7) define la posición del punto de 
partida y el par (10,9) la del punto final 
de la línea, y el conjunto de datos 
((10,7), (10,9)) define la longitud (2 cm), 
la dirección (vertical) y el sentido (de 
abajo a arriba) de la linea entera. Se tra- 
ta, por consiguiente, de un vector. 


De igual manera puede verse que, 
para definir perfectamente la magnitud, 
la dirección y el sentido de una línea si- 
tuada en el espacio, es preciso dar la po- 
sición del punto de partida y del punto fi: 
nal, pero ahora cada una de estas posi- 
ciones vendrá determinada por tres dis- 
tancias a tres planos perpendiculares en- 
tre sí: los que definen la longitud, la an- 
chura y la profundidad. Por tanto, un vec- 
tor en el espacio estará formado por un 
par de datos, cada uno de los cuales 
consta de tres números diferentes. Por 
ejemplo: ((2,4,6), (2,4,8)) define una lí- 
nea de 2 cm de largo situada en direc- 
ción de la profundidad y en el sentido de 
las profundidades crecientes. 

Se llama sistema de referencia el con- 
junto de líneas, puntos o planos que uti- 
lizamos como base de partida para me- 


[4 Fig. 4. 


dir distancias. En el caso del borde de la 
regla, medíamos las distancias respecto 
al punto de la regla marcado con el 
cero, por lo que nuestro sistema de refe- 
rencia era dicho punto. En el caso de la 
hoja de papel, medíamos las distancias 
respecto al borde inferior y el borde iz- 
quierdo de la hoja; luego estas dos rec- 
tas constituían nuestro sistema de refe- 
rencia en este caso. Por último, en el 
ejemplo del espacio utilizamos como sis- 
tema de referencia tres planos perpen- 
diculares entre sí (véase la fig. 4). 

En la práctica, siempre puede elegirse 
el sistema de referencia donde más nos 
convenga. Por ejemplo, en el caso del 
segmento situado sobre el borde de la 
regla, podríamos utilizar como base de 
las medidas el punto señalado con la 
marca de 12 cm (el origen de nuestro 


vector). El segmento quedará ahora de- 
finido por un par de números (0,2), pues 
el primer punto coincide con la base de 
referencia (su distancia a ella es cero) y 
el segundo se encuentra a 2 cm de dis- 
tancia. De igual manera podríamos to- 
mar como sistema de referencia en la 
hoja de papel dos líneas perpendicula- 
res que pasen por el origen del segmen- 
to cuya dirección y magnitud queremos 
determinar, con lo que el vector queda- 
ría transformado en ((0,0), (0,2)). Final- 
mente, en el espacio, tomaríamos tres 
planos perpendiculares que se corten 
precisamente en el origen del vector, 
con lo que éste quedaría definido por 
((0,0,0), (0,0,2)). 

Obsérvese que, de acuerdo con este 
convenio, el origen del vector queda 
siempre representado por uno o varios 
ceros. Por tanto, podemos prescindir de 
él. El vector quedará perfectamente 
definido por las distancias desde el pun- 
to final al punto inicial (el origen) en las 
diversas direcciones. Así, pues, el seg- 
mento trazado sobre el borde de la regla 
vendría representado únicamente por el 
número (2). La línea dibujada en la hoja 
de papel por el par (0,2). La línea traza- 
da en el espacio por la tríada (0,0,2). 


Recapitulando: 


1. Sobre una línea recta (como el 
borde de una regla), para definir total- 
mente la longitud, la dirección y el senti- 
do de un segmento dado basta con dar 
un solo número: (2) en nuestro ejemplo. 

2. Sobre un plano (como la hoja de 
papel), para definir totalmente la longi- 
tud, la dirección y el sentido de un seg- 
mento dado hay que dar dos números: 
(0,2) en nuestro ejemplo. 

3. En el espacio, para definir total- 
mente la longitud, la dirección y el senti- 
do de un segmento dado hay que dar 
tres números: (0,0,2) en nuestro ejemplo. 


Veamos otro ejemplo. El segmento de 
la figura 5 quedará definido, en el siste- 
ma de referencia que pasa por su origen, 
por el vector (2,2). De aquí se puede de- 
ducir su magnitud (2.828427...), su direc- 
ción (una inclinación de 45”) y su sentido 
(de abajo a arriba). 

Vamos a fijarnos ahora en lo siguiente: 
una línea recta tiene una sola dimensión; 
un plano tiene dos dimensiones, el espa- 
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cio tiene tres dimensiones. Por otra parte, 
un vector sobre la recta queda definido 
por un número; un vector sobre el plano 
por dos números; un vector en el espacio 
por tres números. Esto no es casualidad. 

En Matemáticas se utilizan a menudo 
espacios de más de tres dimensiones. 
Pues bien: un vector queda siempre defi- 
nido en estos espacios por tantos núme- 
ros como dimensiones tiene el espacio 
correspondiente. 


*—+K——— N ——=> 


lA Fig. 5. 


Y todo esto, ¿qué tiene que ver con la 
Informática? Pues bien: es frecuente que 
los datos que tenemos que utilizar en 
nuestros programas no sean números als- 
lados, sino colecciones de éstos. Por 
ejemplo, recordemos la versión BASIC del 
programa de conversión de números de- 
cimales a la base 2: 


10 DIM R(10) 

20 FOR I=i TO 10: LET R(1)=0: NEXT 1 

30 PRINT "dame un número entre O y 
1000” 

40 INPUT X 

50 FOR I=1 TO 10 

60 LET C=INT(X/2) 

70 LET R(1)=X-2XC 

80 IF C=0 THEN GOTO 110 

90 LET X=C 

100 NEXT 1 

110 FOR I=1 TO 10: PRINT R(11-1)38 


Podemos ver en este programa que la 
variable X tiene siempre como valor un 
número entre 0 y 1.000; la variable C va 
recibiendo los cocientes sucesivos de X 
al dividirlo por 2; y la variable | es un con- 
tador cuyo valor es un número compren- 
dido entre 1 y 10. 


Estas tres variables tienen siempre, por 
tanto, un valor único. Sin embargo, ve- 
mos también que R es una variable dife- 
rente. En primer lugar, es preciso definir- 
la mediante una instrucción especial: 


a DA EA RE O, 


En segundo lugar, no tiene un solo va- 
lor, sino diez distintos simultáneamente: 
todos los restos que vamos obteniendo 
de forma sucesiva al dividir entre 2 el nú- 
mero inicial (X) y los cocientes que lo van 
sustituyendo. Finalmente (al menos en 
BASIC), no podemos obtener el valor de 
R simplemente con la expresión: 


PRINT R 


como ocurre con las otras variables, que 
tienen un solo valor. Es preciso utilizar una 
instrucción más compleja, un bucle: 


aunque en la línea 110 del programa ante- 
rior, la instrucción era un poco diferente, 
pues queríamos obtener los valores en 
orden inverso. En efecto: si | varía de 1 a 
10, la expresión (11-1) variará de 10 a 1. 

Pues bien: estas variables especiales, 
que poseen varios valores, se llaman a 
veces «colecciones», «series» y otros 
nombres semejantes, pero también es 
frecuente denominarlas «vectores», pre- 
cisamente porque tienen la misma es- 
tructura que los vectores geométricos. Se 
dice, además, que el número de valores 
que poseen es el número de «dimensio- 
nes» del vector, puesto que, como vimos 
antes, un vector tiene siempre tantos ele- 
mentos como dimensiones tiene el espa- 
cio sobre el que define la magnitud, di- 


rección y sentido de un segmento deter- 
minado. 

Recordemos ahora la versión PASCAL 
del mismo programa: 


program BASE2; 


var 
X» iz integer; 
r: array[1..10] of integer; 


begin 
writeln(”Dame un número entre O y 
1000”); readln(x)3 
for iz=1 to 10 do 
begin 
rlili= x mod 23 
xs=x div 2; 
end; 
for iz=1 to 10 do write(r[i1-i11); 


end. 


Podemos ver que también existe una 
instrucción de declaración de la variable 
r, que ha de contener los restos, aunque 
es un poco diferente a la versión BASIC: 


La palabra inglesa «array» se puede 
traducir como «disposición», «secuen- 
cia», etc., y en este caso equivale a «vec- 
tor». La expresión 1..10 indica que este 
vector tiene 10 elementos, cuyos índices 
son los números comprendidos entre 1 y 
10. No hay nada en PASCAL que prohíba 
declaraciones como la siguiente: 


r: arrayl0..9] of integer; 


donde r sigue siendo un vector de 10 ele- 
mentos, pero donde los índices de éstos 
no son los números del 1 al 10, sino del 0 
al 9. 


También en el caso de PASCAL tene- 
mos que recurrir a un bucle para visuali- 
zar los diez valores de r: 


En cambio, en APL no existen instruccio- 
nes especiales para declarar vectores ni 
son necesarios bucles para imprimirlos, 
pues este lenguaje trabaja de forma na- 
tural con estas estructuras de datos. Por 
ejemplo, si queremos que V sea un vec- 
tor de diez elementos iguales a los diez 
primeros números pares, bastaría escribir: 


Vver2 4 6 8 10 12 14 16 18 20 


y para visualizar los diez valores de V bas- 
tará escribir: 


LOGO 


(m Cómo pintar 
o no pintar 


| queremos realizar el 
siguiente dibujo: 
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no tendríamos ningu- 

na pega para dibujar 

los diferentes cuadra- 

dos, pero nos surgiría 

un problema. Des- 
pués de dibujar un cuadrado, para pasar 
a hacer el siguiente hemos de dejar una 
parte sin pintar, es decir, hemos de con- 
seguir que la tortuga ande sin dejar ras- 
tro. 


Para ello, existe un comando que le or- 
dena a la tortuga que levante su lápiz y 
que no pinte hasta que nosotros se lo di- 
gamos. Este comando es: 


SL 


que es la abreviatura de Sube Lápiz. 


Cuando ya hayamos colocado a la tor- 
tuga en la posición donde queremos que 
vuelva a pintar, le hemos de decir que 
baje el lápiz con el comando: 


BL 


que es la abreviatura de Baja Lápiz. 


Ahora ya podemos hacer nuestro dibu- 
jo. Las Ordenes son: 


7 AV 90 GD 90 

7? AV 90 GD 90 

? AV 90 GD 90 

? AV 90 GD 90 

? SL 

7 AV 15 GD 90 AV 15 GI 90 
? BL 

? AV 60 GD 90 

7 AV 60 GD 90 


? AV 60 GD 90 


7? AV 60 GD 90 


? sL 
7? AV 15 GD 90 AV 15 GI 90 
? BL 
? AY 
2 AY E 


? AV 


2? A 


'D Cómo borrar 


Si al realizar alguno de nuestros dibujos 
nos equivocamos, con los comandos de 
borrar que conocemos hasta ahora (BP y 
LIMPIA) no nos queda más remedio que 
borrar todo el dibujo. Pero es una pena 


que por confundirnos en una línea tenga- 
mos que empezar de nuevo. 


Por ello, la tortuga dispone de una 
goma o borrador. Cuando le decimos 
que lo active, en lugar de dejar o no ras- 
tro al andar lo que hace es borrar las lí- 
neas que existan conforme pasa por en- 
cima de ellas. 


Para indicarle a la tortuga que borre, se 
utiliza el comando: 


GOMA 


Para que la tortuga deje de borrar he- 
mos de decirle SL o BL. 

Vamos a probarlo. Supongamos que 
estamos dibujando un cuadrado: 


Fig. 2. 


Los comandos que habremos escrito 
son: 


? AV 25 GD 90 
? AV 25 GD 90 


? AV 25 GD 90 


Si ahora escribimos: 


?7 BK 25 GD 90 


nos quedará: 


l4 


y esto no es un cuadrado. 

Para no borrar todo el dibujo, le deci- 
mos a la tortuga que queremos borrar 
sólo una parte y hacerlo bien. Las órde- 
nes serían: 


Fig. 3. 


7? GOMA 


7 GI 90 AV 25 


? BL 


7 AV 25 GD 90 


La tortuga aparece 
y desaparece 


Cuando hemos finalizado cada uno de 
los dibujos que hemos hecho, hubiera 
quedado mejor que sólo se viera el dibu- 
jo y que la tortuga no apareciera. 

Existe la posibilidad de decirle a la tor- 
tuga que se esconda, que se haga invi- 
sible hasta que nosotros le digamos lo 
contrario. Sin embargo, hay que tener en 
cuenta que aunque nosotros no la vea- 
mos, la tortuga sigue ahí y si le decimos 
que ejecute algún comando lo hará 
igual que siempre. 

El comando que le dice a la tortuga 
que se oculte es 


OT 
y si deseamos que vuelva a aparecer 
MT 


Estas palabras son las abreviaturas de 
Oculta Tortuga y Muestra Tortuga. 


a LOGO 


Vamos a comprobar que la tortuga 
obedece estas órdenes: 


co [Y 


y 
wy 
v 


LY 


pulsamos 


Fig. 4. 


Hagamos ahora un dibujo, por ejem- 
plo, una espiral. Los comandos son: 


y la figura que nos queda es: 


' Distintos colores 


Cuando nosotros escribimos o pinta- 
mos, no siempre utilizamos el mismo bo- 
lígrafo, sino que tenemos “bolis” y lapice- 
ros de diferentes colores. A la tortuga le 
ocurre lo mismo: dispone de diferentes 
tinteros que le permiten que su lápiz pin- 
te en distintos colores. 

Para decirle a la tortuga que queremos 
que cambie el color de su lápiz usamos 
el comando 

PONCL n 


abreviatura de PON Color Lápiz y donde 
n es un número que indica el color en el 
que la tortuga dejará su rastro a partir de 
este momento. 

Además de poder cambiar el color del 
lápiz de la tortuga, también podemos va- 
riar el color del fondo de la pantalla. El 
comando para hacer esto es: 


PONFONDO n 


siendo nun número que indica el color. 
Los números correspondientes a cada 
color son los siguientes: 


0 Transparente. 
1 Negro. 

2 Verde. 

3 Verde claro. 

4 Azul oscuro. 

5 Azul claro. 

6 Rojo oscuro. 

7 Azul celeste. 

8 Rojo. 

9 Rojo claro. 
10 Amarillo oscuro. 
11 Amarillo claro. 
12 Verde oscuro. 


13 Magenta. 
14 Gris. 
15 Blanco. 


En el caso de que el número n que pon- 
gamos en los comandos PONCL y PON- 
FONDO sea el mismo, la tortuga dejará 
rastro al andar, pero nosotros no lo vere- 
mos, por ser el color del lápiz el mismo 
que el color del fondo. 

Por tanto, acabamos de descubrir otra 
forma de borrar líneas cuando nos con- 
fundamos. Para ello, nos basta con cam- 
biar el color del lápiz al color que tenga 
el fondo y hacer pasar a la tortuga por 
encima de la línea equivocada. 

Por ejemplo, en el caso del cuadrado 
que veiamos antes, obtendríamos el mis- 
mo resultado con los siguientes coman- 
dos: 


? PONCL 4 


? Gl 90 av 
? PONCL 15 
? AV 25 GD 90 


es 


Como se ve, hemos supuesto que el co- 
lor del fondo es el azul oscuro y que la tor- 
tuga estaba pintando el cuadrado en co- 
lor blanco. 


Os proponemos 


1. Intenta pintar la siguiente figura de 
tal manera que cada triángulo sea de un 
color diferente. 


a. 


2. Haz que la tortuga escriba tu nom- 
bre en la pantalla. Si quieres, puedes pin- 
tar cada letra de un color. Por ejemplo: 


3. También puedes dibujar este co- 
medor usando distintos colores: 


AAA 


Fig. 8. 


4. Pinta este chino: 


Pill 


[A Flg. 9. 
Para escribir 


Además de dibujar, nuestra tortuga es 
capaz de hacer muchas más cosas, que 
iremos viendo poco a poco. 

Entre ellas, la tortuga puede escribir lo 
que nosotros le pidamos. El comando de 
escritura es: 


ESCRIBE 
o su abreviatura: 


ES 
Pero nos falta decirle qué es lo que ha 
de escribir. 
Si deseamos que escriba una palabra, 
hemos de poner: 


ES “palabra 
es decir, ponemos dobles comillas (*) 
delante de la palabra. 
Por ejemplo, si queremos que escriba 
HOLA: 


as LOGO 


Por el contrario, silo que queremos que 
escriba es una frase o una lista de pala- 
bras, hemos de decirle: 


ES (lista o frase) 


es decir, encerramos la lista o frase entre 
corchetes ((  )). 

Por ejemplo, si queremos que escriba 
la lista de nuestros amigos, pondremos: 


EA 


== 
w 
v 


poesias Us, 4 


A 


2 ES [ ANGEL JUAN] 
ANGEL JUAN 
>m 


¡ÉS Fig. 11. 
o si queremos escribir una frase: 


2 ES [¿C0MO ESTAS? ] 
| ¿00MO ESTAS? 
>. 


pulsamos 


A a > número que corresponde al color negro 


A 7 número que corresponde al color verde 


Como podemos ver, la posición de la 
tortuga no varía, ya que no le hemos 
dado ninguna orden para que se mueva. 

Puedes probar tú a escribir lo que quie- 
ras. La tortuga te obedecerá. 


Algunas funciones 


Una FUNCION es un tipo de orden que 
la tortuga es capaz de ejecutar pero que 
no varía su estado, es decir, que no cam- 
bia su posición. Más bien, lo que ocurre 
es que nos sirve para conocer alguna in- 
formación. Es como si a la tortuga le pre- 
guntáramos algo y ella nos respondiese. 

Por ejemplo, si deseamos conocer el 
número del color del lápiz que actual- 
mente está utilizando la tortuga, usare- 
mos la función: 


CL 


y si queremos conocer el número del co- 
lor del fondo de la pantalla, la función es: 


FONDO 


Sólo nos queda tener una cosa en 
cuenta. Las funciones no se utilizan como 
los comandos, sino que hay que hacer 
algo con ellas, con el resultado que dan. 
Lo más normal es decirle a la tortuga que 
escriba, mediante el comando ES, la res- 
puesta a lo que nosotros le preguntamos. 

Así, si suponemos que el color del fon- 
do es el verde y el color del lápiz de la 
tortuga el negro, al dar las siguientes ór- 
denes obtendríamos: 


Ahora tú puedes ir cambiando los co- 
lores del lápiz y de la pantalla e irle pre- 
guntando a la tortuga cuál es su número 
correspondiente. Podrás comprobar que 
nunca se equivoca. 


PASCAL 


L mostrar un número 
con el procedimiento 
WRITELN, se utiliza el 
espacio justo; por 
eso, si pusiéramos: 


writein ('Peso', 
100 + 23, Ene); 


en la pantalla saldría: 


Peso 123-17 


Esto se podría mejorar poniendo, por 
ejemplo: 


writeln ('Peso ”, 100 + 23,' *, Ene); 
con lo que tendríamos: 
Peso 123 -17 


Sin embargo, es mejor indicarle al PAS- 
CAL de manera clara cuanto sitio quere- 
mos que ocupe un número. Esto se con- 
sigue poniendo justo a continuación de 
lo que se quiere enseñar el número de 
espacios a ocupar con dos puntos por 
delante; por ello: 


writeln ('Peso', 100 + 23 :4, Ene:6); 
daría: 


Peso 123 -17 
—> 4 espacios para 123 ) 
(o sens. —> 6 espacios para —17 ) 


Tras utilizar WRITELN, las siguientes co- 
sas que queramos sacar aparecerán por 
fuerza en la siguiente línea (write signifi- 
ca escribir In viene de line, línea). Ha- 
brá veces que, sin embargo, no quera- 


mos renunciar a la posibilidad de seguir 
escribiendo posteriormente en la misma 
línea; para esos casos está el procedi- 
miento WRITE, que se utiliza exactamente 
igual que el anterior, pero sin forzar el 
paso a la siguiente línea. 

Para aclarar todo esto, veamos el si- 
guiente ejemplo: 


program Ejemplo; 


begin 
writeln (Tras esto, nueva línea:'); 
write (Pero tras esto no: ”); 
writeln ('¿lo ves?”); 
writeln; 
writeln (*Y, por fin, me despido.') 
end. 


Tras compilar y ejecutar el programa, 
tendremos en la pantalla: 


Tras esto, nueva línea: 
Pero tras esto no: ¿lo ves? 


Y, por fin, me despido. 


En el programa se ha utilizado una vez 
el procedimiento WRITELN sin lista de co- 
sas para sacar. Es como escribir «nada» 
pasándose luego, por supuesto, a la si- 
guiente línea; por ello, queda un renglón 
vacío en la pantalla. 

Dependiendo del compilador de que 
se disponga, existen otros procedimien- 
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tos adicionales para la salida de datos. 
Por ejemplo, para limpiar por completo 
la pantalla de lo que pudiera tener escri- 
to previamente existe en algunos casos 
el procedimiento PAGE (página), que en 
otros se llama CLRSCR (de «clear screen», 
borrar pantalla). Para utilizarlo, bastaría 
con llamarlo por su nombre: 


page; 
writeln 
(Esto sale en una pantalla limpia.”); 


Aunque menos, también es probable 
que se disponga de un procedimiento 
para poder escoger el sitio de la panta- 
lla en que vaya a salir lo siguiente (algo 
así como el LOCATE del Basic). Por ejem- 
plo, podría ser: 


gotoxy (2 + 3, 17); 
writein (Esto, en la línea 17, columna 5”); 


Esta posibilidad de variación de unos 
casos a otros se debe a que en el PAS- 
CAL estándar no hay nada indicado al 
respecto y, por tanto, está hecho a gus- 
to de las personas que hayan desarrolla- 
do cada compilador. Cuando aprenda- 
mos a escribir nuestros propios procedi- 
mientos superaremos fácilmente todas 
estas diferencias. 


O Instrucciones de entrada 


Al leer un número introducido por te- 
clado como, por ejemplo, -17, y a la in- 
versa de lo que sucede cuando quere- 
mos mostrarlo, hay que convertir esa se- 
cuencia de teclas en el código que utili- 
zará internamente el ordenador para 
guardar ese número. 

Por otra parte, los datos que se introdu- 
cen desde teclado hay que guardarlos 
en memoria. Estos datos pueden ser dis- 
tintos de una vez para otra, y, por tanto, 
habrá que guardarlos en una zona de 
memoria reservada para ello, es decir, 
en una variable. 

Como es de suponer, existen procedi- 
mientos ya preparados que nos hacen 
todo esto. Los más corrientes son los de- 
nominados READ y READLN (read significa 
leer e In, una vez más, viene de línea). 

Normalmente, la única diferencia entre 


ambos estriba en que, cuando se utiliza 
READLN, una vez se ha llenado la variable 
con el dato tecleado, todo lo que se hu- 
biera escrito en la misma línea hasta que 
se pulsó la tecla de RETURN (o ENTER o IN- 
TRO O NEWLINE según el ordenador) se 
pierde y no se puede aprovechar en una 
lectura posterior. Utililándose READ, lo 
que resta en la línea queda disponible 
para las siguientes instrucciones de lec- 
tura. 

(NOTA: Utilizando el TURBO PASCAL con 
el ordenador personal IBM o compalti- 
bles, para que READ funcione de esta 
manera es necesario poner tras la cabe- 
cera de programa, por ejemplo, 
(-$G 128-), para así forzar la lectura de te- 
clado a través del sistema operativo.) 


Por ejemplo: 


program LeeDatos; 


var 
Peso 210200 
Letra1, Letra2 : char; 
begin 
writeln 


('Teclee dos letras (y pulse RETURN)'); 
read (Letra 1); 
readin (Letra2); 
writeln ('Han sido la ',Letra1,' y la', 
Letra 2, '¿verdad?”); 


write (Teclee el peso (y RETURN):'); 
readin (Peso); 
write ('Le quedan sólo ',200 - Peso, 
* para llegar a los 200.) 
end. 


Albutilizarse READ para Letra 1, la segun- 
da letra puede teclearse en la misma lí- 
nea, sin separarla de la segunda pulsan- 
do la tecla de Return, pues seguirá dis- 
ponible para su posterior lectura. Si se hu- 
biera utilizado READLN para Letra1, la 
segunda letra se habría perdido y se ten- 
dría que volver a escribir (seguida de RE- 
TURN, que es la forma de indicarle al orde- 
nador que ya se ha terminado de escri- 
bir el dato). 

En el ejemplo también se hace la lec- 
tura de un número entero. Si el número te- 
cleado fuese incorrecto (por ejemplo, 
X25) o estuviera fuera de rango (68030), 
el programa se pararía dando un aviso 
de error. En otra ocasión veremos cómo 
se puede corregir esto fácilmente. 

Si varios datos van a ser leídos de una 


sola vez, como sucede con Letra] y Le- 
tra2, es posible hacerlo con una sola ins- 
trucción: 


readin (Letra1,Letra2); 


Esto equivaldría a las dos primeras ins- 
trucciones de lectura del ejemplo. Sin 
embargo, lo aconsejable es utilizar siem- 
pre una instrucción READLN por cada 
dato a leer, para así poder sacar por 
pantalla cada vez un mensaje indicativo 
de lo que hay que teclear. 


'D Expresiones 


Los dos primeros datos que se leían en 
el programa anterior simplemente se vol- 
vían a presentar sin hacer ningún proce- 
so ni generar nuevos datos con ellos. Evi- 
dentemente, esto sólo sirve para muy 
poco. Mediante el uso de EXPRESIONES se 
pueden generar nuevos valores a partir 
de datos previos. Por ejemplo, a partir 
del peso tecleado hemos obtenido lo 
que queda para llegar a doscientos. 

Una expresión es una lista de variables 
y constantes combinadas mediante OPE- 
RADORES para dar un resultado que, a su 
vez, puede ser guardado en una varia- 
ble, mostrado en la pantalla o impreso- 
ra, etc. 

En una expresión SOLO se pueden com- 
binar constantes y variables de un mismo 
tipo. No tiene sentido sumar un número a 
una letra. Por ello, según sea el tipo de 
los elementos que la integran, se dice 
que una expresión es de tal tipo o de tal 
otro. 

En principio, hay cinco operadores que 
se pueden utilizar en expresiones de tipo 
INTEGER. Se escriben como +, —, », DIV y 
MOD: 

+ y - sirven para sumar o restar los va- 
lores que se encuentran por delante y 
detrás de ellos: 3 + 1 hace que se sumen 
3 y 1 y, por tanto, equivale a poner 4. 


La multiplicación se indica con +: 2 + 3 
es igual a 6. 

DIV representa la división entera, es de- 
cir, sin obtener decimales. 5 DIV 2 da 
como resultado 2, al igual que 4 DIV 2. 

MOD €es el resto de la división entera. 5 
MOD 2 vale 1, mientras que 4 MOD 2 da 0. 


Las expresiones de tipo INTEGER se cal- 
culan empezando por la izquierda, pero 


realizándose las sumas y restas después 
de las demás operaciones. Por ejemplo: 


5 -4 + 9 MOD 5 + 7 + 3 primero + y MOD: 


5 -4 + 4+21 luego + y -: 
l + 4 +21 
5 + 21 
26 


Sin embargo, se puede alterar el orden 
de cálculo poniendo entre paréntesis lo 
que se desea calcular en primer lugar: 


5 — (4 + 9) MOD (5 + 7) - 3 primero lo 


de los 
paréntesis: 
5 - 13MOD 12 -+3luego - 
y MOD: 
5 - 1 . 3 
5 3 


Se pueden utilizar todos los paréntesis 
que se quiera e incluso paréntesis dentro 
de paréntesis. Es una buena práctica po- 
ner paréntesis en cuanto haya la más mí- 
nima duda sobre el orden de cálculo de 
una expresión, pues además la expre- 
sión queda mucho más clara, pero con- 
viene vigilar que todos los paréntesis que 
se abran se cierren luego, pues si no se 
producirá un error al compilar el progra- 
ma. 

El operador - aplicado a un valor ais- 
lado sirve para cambiar su signo; se dice 
en este caso que es un operador «moná- 
dico», mientras que en el caso normal es 
un operador «diádico» (es decir, se apll- 
ca a dos valores): 


2-(-(5+4-3)) s igual a 
2 + (-17) y esto es igual a -34. 


Una expresión de un tipo dado se pue- 
de poner en cualquier lugar en que pue- 
da ir una variable o constante del mismo 
tipo, salvo advertencia en contra, y equi- 
vale a poner su resultado en el momento 
de hacer el cálculo. 


1] 


== Asignación 

Ya hemos visto cómo, mediante los 
procedimientos READ y READLN, es posl- 
ble guardar datos tecleados en varia- 
bles. Sin embargo, las variables se utili- 
zan para guardar no sólo datos teclea- 
dos, sino datos elaborados por el propio 
programa. Esto se consigue mediante las 
instrucciones de asignación. 


se PASCAL 


Estas constan de dos partes separadas 
por el operador de asignación. A la iz- 
quierda se escribe el nombre o identifi- 
cador de la variable en que se desea 
guardar el dato y a la derecha la cons- 
tante, variable o expresión cuyo valor se 
desea guardar. 

El operador se escribe como :=, o sea, 
dos puntos INMEDIATAMENTE seguidos de 
un signo igual. En definitiva: 


Nombre de la variable := expresión, 
constante o variable 


El valor a guardar DEBE ser del mismo 
tipo que la variable en que se guarda. No 
se pueden mezclar nunca tipos distintos. 
Veamos un ejemplo: 


program Asignacion; 


const 
Dos = 2; 
var 
N: integer; 
C: char; 


begin 
N:= 7; 
Cim'A”; 
writeln ('N vale ',N,' y C vale ',C); 


N:=N+1; 
writeln ('N vale ahora ”,N); 


N:= N div Dos + 2; 
writeln ('N vale ahora ',N) 
end. 


Al correr el programa, tendremos en la 
pantalla: 


N vale 7 y C vale A 
N vale ahora 8 


N vale ahora 6 


Está claro que para guardar un valor en 
una variable antes hay que calcularlo. 
Por ello, en los casos en que la variable 
a la que vamos a asignar el valor apare- 
ce también a la derecha, se utiliza su va- 
lor anterior para obtener el resultado de 
la expresión, y sólo una vez calculada 
ésta pasará la variable a tener el nuevo. 

Así, la instrucción N:=N + 1 toma el 
valor anterior (7 en el ejemplo) para cal- 
cular la expresión. Una vez hecho esto, el 
resultado (8 en el ejemplo) se guarda en 
N 


Si a continuación hubiera otra instruc- 
ción N:=N + 1, N pasaría a valer 9, etc. 


mu Introducción 


S/DOS significa Micro- 
soft-Disk Operating 
System. Es un sistema 
operativo creado por 
la compañía norte- 
americana Microsoft 
para ordenadores 
basados en los micro- 
procesadores 8088 y 8086 de Intel. Antes 
de que IBM lo adoptase como sistema 
operativo para su ordenador personal, 
pugnaba con el CP/M 86 por convertirse 
en un estándar en el terreno de los equi- 
pos de 16 bits, pero a raíz de que la po- 
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derosa multinacional norteamericana lo 
adoptase para su IBM PC, MS/DOS se ha 
convertido en el rey indiscutible de los 
sistemas operativos para equipos basa- 
dos en un microprocesador de 16 bits. 

Conceptualmente, MS/DOS, al haber 
seguido las pautas de CP/M, guarda 
gran similitud con éste, pero también tie- 
ne muchos de sus defectos. MS/DOS está 
orientado principalmente a la gestión de 
archivos (o ficheros) en disco. En su pri- 
mera versión, DOS 1.0 está configurado 
para operar con 2 unidades de disco 
flexible, mientras que la versión 2.0 (y 
posteriores) viene preparada para con- 
trolar unidades de disco rígido. 


MAQUINA 


| 
[A En MS/DOS los dispositvos perlféricos están controlados por módulos Independientes. 
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Debido a que las primeras versiones de 
MS/DOS se encuentran en la actualidad 
completamente destasadas y supera- 
das, aquí nos referiremos a las versiones 
desde la 2.00 en adelante, aunque mu- 
chos conceptos son válidos para todas 
ellas. 

En MS/DOS, cada uno de los distintos 
dispositivos periféricos conectados al or- 
denador tiene un programa o módulo 
propio del sistema operativo encargado 
de controlarlo. Esto constituye una gran 
ventaja, ya que el equipo puede adap- 
tarse al uso de todo tipo de periféricos 
con sólo añadir un módulo que controle 
cada nuevo dispositivo conectado; pero 
a la vez es también un inconveniente, ya 
que al estar pensado el sistema operati- 
vo en función de las necesidades del or- 
denador y no de las del usuario, obliga a 
éste a conocer de manera precisa las 
distintas órdenes del MS/DOS. 


'Q Ficheros en MS/DOS 


Un fichero es un conjunto de informa- 
ción al que se le asigna un nombre, y que 
está guardado en un dispositivo de alma- 
cenamiento secundario, como puede 
ser un disco flexible o un disco duro. 

La información que contiene un fichero 
es muy variada (programas, texto, da- 
tos...) y lo más normal es que sea homo- 
génea, es decir, lo usual es que un fiche- 
ro contenga un programa, o un texto, o 
datos de alguna aplicación, pero no co- 
sas mezcladas. 

Los ficheros se referencian por su iden- 
tificación, que está compuesta, de forma 
obligatoria, por un nombre, y opcional- 
mente por una extensión, separadas am- 
bas partes por un punto. El nombre debe 
estar formado por al menos un carácter, 
siendo su longitud máxima de 8. Estos 
pueden ser letras, números o determina- 
dos signos de puntuación que no se utili- 
cen en la formulación de comandos. Por 
ello, no se admite la inclusión de puntos 
ni espacios en blanco dentro del nom- 
bre. 

La extensión del nombre del fichero es 
una cadena, de, como máximo, 3 carac- 
teres. Se utiliza para que el usuario tenga 
una idea del tipo de información que 
contiene el fichero. Por ejemplo, los co- 
mandos externos del MS/DOS residen en 
ficheros cuya extensión es “.COM" (para 


indicar que son COMandos). Un progra- 
ma en lenguaje BASIC podria guardarse 
en un fichero con extensión “.BAS", etc. 


Volumen en unidad Á sin etiqueta 
Directorio de AN 


23898 22/04/85 12:00 
CONFIG sYs 14 22/04/85 12:00 
22/04/85 12:00 


Ss sYs 1651 22/04/85 12:00 
ASSIGN Com 1516 22/04/85 12:00 
ATTRIB EXE 15107 22/04/85 12:00 
BACKUP com 5844 22/04/85 12:00 


17792 22/04/85 12:00 
27520 22/04/85 12:00 
CHKDSK Com 9867 22/04/85 12:00 


CcomP com 3826 22/04/85 12:00 
DISKCOMP COM 4201 22/04/85 12:00 
DISKCOPY COM 4489 22/04/85 12:00 
EDLIN com 7421 22/04/85 12:00 


FDISK com 8381 22/04/85 12:00 
FIND EXE 6436 22/04/85 12:00 
FORMAT com 9603 22/04/85 12:00 
FRAFTABL COM 1190 22/04/85 12:00 
GRAPHICS COM 3111 22/04/85 12:00 
JOIN EXE 16019 22/04/85 12:00 
KEYBFR a] 2473 22/04/85 12:00 
KEYBGR com 2418 22/04/85 12:00 
KEYBIT com 2361 22/04/85 12:00 
KEYBSP com 2451 22/04/85 12:00 
KEYBUK com 2348 22/04/85 12:00 
LABEL a] 1918 22/04/85 12:00 
MODE com 5434 22/04/85 12:00 
MORE com 286 22/04/85 12:00 
PRINT com 8595 22/04/85 12:00 
RECOVER COM 4194 22/04/85 12:00 
RESTORE COM 5667 22/04/85 12:00 
SELECT com 2107 22/04/85 12:00 
SHARE EXE 8320 22/04/85 12:00 
SORT EXE 1664 22/04/85 12:00 
SsuBSsT EXE 16643 22/04/85 12:00 
sYs com 3839 22/04/85 12:00 
TREE com 2877 22/04/85 12:00 
VDISK sYs 3398 22/04/85 12:00 


15638 22/04/85 12:00 
381494 22/04/85 12:00 
D bytes libres 


LINK EXE 
40 Archivo(s) 


lA Listado del directorio del disco del sistema 
operativo. 


Un tipo de ficheros algo diferentes a los 
demás son los denominados de tipo 
“batch”. En éstos, el usuario almacena 
una lista de órdenes o comandos de 
MS/DOS, que se ejecutan de manera se- 
cuencial desde el momento en que el 
usuario manda al sistema operativo que 
procese el correspondiente fichero 
batch. Estos ficheros, cuya utilidad es 
ahorrar trabajo y tiempo al usuario, tie- 
nen la extensión “.BAT". De este modo, si 
tenemos una serie de órdenes que utili- 
zamos de manera repetida, se evita el te- 
ner que teclearlas una por una cada vez 
que se necesite emplearlas. 

La flexibilidad en el manejo de estos fi- 


LA Con el uso de caracteres comodín podemos 
nombrar varios ficheros a la vez. 


cheros viene dada por las siguientes ca- 
racteristicas: 


— La existencia de unas “órdenes in- 
ternas” o sudecomandos, que permiten al 
usuario crear un “programa de coman- 
dos MS/DOS” dentro del fichero batch. Es 
posible, por ejemplo, ejecutar ¡terativa- 
mente un grupo de órdenes, seleccionar 
los mandatos a procesar, esperar la en- 
trada desde el teclado, etc. 


— Alcrear un fichero batch se pueden 
dejar comandos con parámetros varia- 
bles cuyo contenido se especificará en 


Ho 


la orden de procesamiento del fichero 
batch. 

— Enlace de ficheros batch. Aunque 
de forma restringida, desde un fichero 
batch se puede provocar la ejecución 
de otro. La única limitación es que las lla- 
madas deben colocarse al final del fi- 
chero. 

El manejo de los ficheros en MS/DOS se 
facilita por una serie de “utilidades” que 
se pueden considerar “estándar”, pues 
existen en la mayoría de los sistemas 
operativos. Una de ellas es la referencia- 
ción de ficheros mediante el uso de ca- 
racteres “comodín”. Su utilidad reside en 
que permiten extender la actuación de 
un comando a un grupo genérico de fi- 
cheros, sin necesidad de especificar el 
nombre de cada uno de ellos. 

En MS/DOS existen dos caracteres “co- 
modín”: el asterisco (“*”), que se utiliza 
para sustituir un grupo de caracteres, y la 
interrogación (“?”), para sustituir un solo 
carácter. Por ejemplo, si queremos refe- 
renciar a todos los ficheros de exten- 
sión “.COM" del disco del sistema, no es 
necesario nombrarlos todos, sino que 
basta con poner “*. COM”. El ordenador 
entiende que es una referencia a todos 
lo ficheros cuyo nombre sea cualquier 
cadena de caracteres (esa es la inter- 
pretación del “*”), seguida de la cadena 
“ COM". De igual manera, si tuviéramos 
tres ficheros de nombre “CAPI1.TEX"“, 
“CAP2.TEX" y “CAP3.TEX“, podríamos refe- 
renciarlos a todos poniendo “CAP?.TEX*. 


La jerarquización de los direc- 
torios nos permite tener de 

«| una manera clara y ordenada 
todos los datos. 
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m Organización de ficheros 
en MS/DOS 


Una de las novedades que aportó la 
versión 2.00 de MS/DOS es la organiza- 
ción de los ficheros en directorios. Un di- 
rectorio es una colección de ficheros o a 
su vez de otros directorios (también lla- 
mados subdirectorios). Estos subdirecto- 
rios pueden contener más ficheros y/o 
subdirectorios, desarrollándose así una 
estructura ramificada en forma de árbol 
invertido, cuya fuente o inicio es el direc- 
torio raíz, identificado por el carácter “”. 

La utilidad de este sistema es que se 
pueden estructurar los datos que se refie- 
ren a un tema específico en su propio di- 
rectorio, contribuyendo así a tener una 
estructura clara y ordenada de los mis- 
mos. 


Si trabajando en un subdirectorio se 
quisiera hacer referencia a un fichero de 
otro subdirectorio, al nombre de este fi- 
chero habría que anteponer la descrip- 
ción de la rama a la que pertenece. Esta 
descripción es lo que se conoce como 
“path” o “camino” de un fichero. Este ca- 
mino puede ser absoluto o completo (si 
se incluye la descripción de todos los ni- 
veles o subdirectorios de la rama, empe- 
zando en el directorio raíz), o relativo (si 
se parte desde el subdirectorio en el que 
se está trabajando). 

MS/DOS pone a disposición del usuario 
comandos para realizar casi cualquier 
operación relativa a los directorios, tales 
como creación, borrado, listado de su 
contenido, movimiento a través de la es- 
tructura en árbol, etc. 
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